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

Var

x1, x2:char;

y1, y2:byte;

Begin

WriteLn ('Координаты белого ферзя:') ;

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.