uses crt;
var
a,b,c,d:byte;
begin
clrscr;
repeat
writeln('Положение коня:');
write('a=');
readln(a);
write('b=');
readln(b);
until (a in [1..8]) and (b in [1..8]);
repeat
writeln('Поле для хода:');
write('c=');
readln(c);
write('d=');
readln(d);
until (c in [1..8]) and (d in [1..8]);
if ((abs(a-c)=1)and(abs(b-d)=2)) or ((abs(a-c)=2)and(abs(b-d)=1)) then
write('Конь может за один ход попасть на заданное поле')
else
write('Конь не может за один ход попасть на заданное поле');
readln
end.