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