Комментарии к программе.

uses crt;
var a,b:array[1..50,1..50] of integer;
    n,i,j:integer;
begin
randomize;
clrscr;
write('n=');readln(n);
writeln('Ischodnaia matritsha:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:3);
      end;
    writeln;
  end;
writeln('Povorot');
for i:=1 to n do
for j:=1 to n do
b[i,j]:=a[j,n-i+1];
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(b[i,j]:3);
      end;
  writeln;
  end;
readln
end.

uses crt;
var a,b:array[1..50,1..50] of integer;{задаем два массива с максимальной длинной 50}
n,i,j:integer;
begin
randomize;{функция произвольного заполнения массива}
clrscr;{очистка экрана}
write('n=');readln(n);{ввод размерности масива}
writeln('Ischodnaia matritsha:');{Вывод сообщения пользователю :"Исходная матрица"}
for i:=1 to n do{цикл массива}
begin
for j:=1 to n do{цикл массива}
begin
a[i,j]:=random(20);{заполнение двумерного массива элементами не более 20}
write(a[i,j]:3);{вывод матрицы А с выделением  3 символа для каждого элемента }
end;
writeln;
end;
writeln('Povorot');{вывод сообщения пользователю поворот}
for i:=1 to n do {цикл массива}
for j:=1 to n do {цикл массива}
b[i,j]:=a[j,n-i+1];  {пермещение элементов матрицы на 90 градусов}
for i:=1 to n do {цикл массива}
begin
for j:=1 to n do {цикл массива}
begin
write(b[i,j]:3);{вывод исходной матрицы}
end;
writeln;
end;
readln{задержка}
end.