Надо! для клетки с координатами (x, y) в таблице размером m × n выведите координаты ее соседей. соседними называются клетки, имеющие общую сторону. решить надо в паскале!

Var n, m, x, y, i, j: integer; begin   write('n='); readln(n);   write('m='); readln(m);   write('x='); readln(x);   write('y='); readln(y);       for i : = -1 to 1 do     for j : = -1 to 1 do       if (i < > j) and (i < > -j) and           (x+i> 0) and (x+i< n+1) and           (y+j> 0) and (y+j< m+1) then           writeln('(', x+i, ',', y+j, ')'); end.

var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!