Нужно вывести циклом все ячейки по которым может ходить конь(шахматы) с определенной точки например для слона:
Код:
var a,b, i, j:longint;
begin
read(a,b);
for i:=1 to 8 do
for j:=1 to 8 do
if((i-j)=(a-b)) or ((i+j)=(a+b)) and (i<>a) then
writeln(i,' ',j);
end.