Пожалуйста помогите с паскалем! Даны координаты коня ** шахматном поле размером 8×88×8....

Question

Пожалуйста помогите с паскалем!

Даны координаты коня на шахматном поле размером 8×88×8. Требуется определить, какие клетки поля попадают под его бой.


Формат выходных данных

Требуется вывести kk строк, где kk — количество клеток поля под боем коня. Каждая строка должна содержать два целых числа — координаты клеток. Строки должны быть упорядочены по возрастанию первой координаты, если же они совпадают, по возрастанию второй.

Примеры:

входные данные .......................................выходные данные
1 8
........................................................................................2 6
........................................................................................3 7

Answer 1

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var (a,b):=ReadInteger2('Введите координаты коня->');
  for var i:=1 to 8 do
   for var j:=1 to 8 do
    begin
     var x:=abs(i-a);
     var y:=abs(j-b);
     if ((x=1) and (y=2)) or ((x=2) and (y=1)) then Println(i,j);
    end;
end.

Пример:
Введите координаты коня-> 8 86 7 7 6