Координаты соседей

[daniil123]

Для клетки с координатами(x,y)в таблице размером M x N выведите координаты ее соседей. Соседними называются клетки, имеющие общую сторону.
Даны натуральные числа M - количество столбцов, N - количество строк, x -номер столбца, y - номер строки.
В выходной файл выведите пары координат соседей этой клетки в произвольном порядке. В каждой паре вначале выводите номер столбца, а затем номер строки.
Пример:
Вход:
3 3
2 2
Выход:
1 2
2 1
2 3
3 2

[skyll]

И что тут сложного? Какой вообще смысл? Да и зачем массив?)

program prg;
uses crt;
const
     wid = 10;
     hei = 10;
var
   ar: array [1..hei, 1..wid] of integer;
   x, y: integer;
begin
     write('x: ');
     readln(x);
     write('y: ');
     readln(y);
     
     writeln(x,' ', y - 1);
     writeln(x - 1,' ', y);
     writeln(x + 1,' ', y);
     writeln(x,' ', y + 1);
end.

Вот если нужно сравнивать элементы:

program prg;
uses crt;
const
     wid = 10;
     hei = 10;
var
   ar: array [1..hei, 1..wid] of integer;
   x, y, j, i: integer;
begin
     write('x: ');
     readln(x);
     write('y: ');
     readln(y);
     
     for j := 1 to hei do
         for i := 1 to wid do begin
             if (((i = x + 1) and (j = y) or ((i = x - 1) and (j = y))
                 or ((i = x ) and (j = y + 1)) or ((i = x) and (j = y - 1)))) then

                writeln(j, ' ', i);
         end;
end.