1)

var
   i, j, n: integer;
   A: array[1..100, 1..100] of integer;
begin
   readln(n);
   for i:= 1 to n do
      for j:= 1 to n do
         A[i, j] := (i - j - 5)*(i - j - 5);
end.