составьте алгоритм проверки, бьют ли друг друга два ферзя, если известны их координаты на шахматном поле;

Var   x1,x2:char;   y1,y2:byte;BeginWriteLn('Координаты белого ферзя:');Write('           x(a..h) = ');ReadLn(x1);Write('           y(1..8) = ');ReadLn(y1);WriteLn('Координаты чёрного ферзя:');Write('           x(a..h) = ');ReadLn(x2);Write('           y(1..8) = ');ReadLn(y2);y1:=Abs(y1-y2);y2:=Abs(Ord(x1)-Ord(x2));if (y2=0)or(y1=0)or(y2-y1=0)or(y1<2)and(y2<2) then WriteLn('Бьёт')else WriteLn('Не бьёт');End.