Пожалуйста, срочно помогите написать одну з трёх программ на паскале.

> 2) если (x1 == x2 или y1 == y2) 1 ход, иначе - 2 хода
> Ваш К. О.
К. О. не учел диагонали.

var
    qx, qy, ox, oy: integer;
begin
    write('где ферзь? ');
    readln(qx, qy);
    write('где другая? ');
    readln(ox, oy);
    if (qx = ox) or (qy = oy) or (abs(qx - ox) = abs(qy - oy)) then
        writeln('один ход')
    else
        writeln('два хода');
end.

ЗЫ:
> а ничего не умею.
Отрыл любой учебник по паскалю, благо в сети их навалом, читаешь, разбираешься, выполняешь упражнения и через некоторое время уже начнешь хоть что-нибудь уметь.

1) ну вводишь с клавиатуры and / or / xor, потом проверяешь и используешь нужную команду для каждого элемента из таблицы истинности, всего 4 варианта:
a b результат
0 0 ?
0 1 ?
1 0 ?
1 1 ?

2) если (x1 == x2 или y1 == y2) 1 ход, иначе - 2 хода
Ваш К. О.

3) ХЗ ((

--------------------
"Я не знаю как написать код ( Пожалуйста напиши хоть 1 программу полностью, мне лабу сдавать, а ничего не умею. "
Сорри, я тоже.. . это же Паскаль ((

Задачи интересные (относительно тех, что здесь обычно пишут) , но где твои примеры решений? хоть что-нибудь. Помочь - значит направить на путь истинный, а не решить.
3) найти наибольшую сторону и с ней сравнивать данный отрезок. первый 2 уже написали)