получить квадратную матрицу порядка 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;

Begin
Writeln('Введите n');
readln(n);

for i:=0 to n-1 do
Begin 
     for j:=1 to n do 
          Begin 
             rezult:=i*n+j; 
             Write(rezult:3,' '); 
          end; 
Writeln;
end;

end.