[Вопрос] Может кто-нибудь решить задачу на паскале

[vlad360]

Нужно вывести циклом все ячейки по которым может ходить конь(шахматы) с определенной точки например для слона:

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.