получить квадратную матрицу порядка n:
1 2 ... n-1 n
n+1 n+2 ... 2n-1 2n
2n+1 2n+2 ... 3n-1 3n
. . . . .
. . . . .
. . . . .

(n-1)n+1 (n-1)n+2 ... n^2-1 n^2

program pr;uses crt;Var i,j,n,rezult:integer;BeginWriteln('Введите n');readln(n);for i:=0 to n-1 doBegin       for j:=1 to n do            Begin               rezult:=i*n+j;               Write(rezult:3,' ');            end;  Writeln;end;end.