блок-схема

program gfgkfg;
const
  n = 3;
type
  matrix = array[1..n, 1..n] of integer;
 
{процедура поворота}
procedure rotate(var z : matrix);
var p, i, j, x : integer;
begin
  p := n div 2;
  for i:=1 to p do
    for j:=i to n-i do
    begin
      x:=z[i,j];
      z[i,j]:=z[j,n-i+1];
      z[j,n-i+1]:=z[n-i+1,n-j+1];
      z[n-i+1,n-j+1] := z[n-j+1,i];
      z[n-j+1,i]:=x
    end
end;
 
 {процедура ввода матрицы}
procedure input(var z : matrix);
var i, j : integer;
begin
  randomize;
  for i := 1 to n do
    for j := 1 to n do
      z[i,j] := random(10) - 5;
end;
 
{процедура вывода матрицы}
procedure output(z : matrix);
var j, i : integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do write(z[i,j]:4);
    writeln
  end
end;
 
var
  a : matrix;
 
begin
  input(a);
  writeln('исходная матрица:');
  output(a);
  {поворот на 90}
  rotate(a);
  writeln('матрица, повернутая на 90 градусов:');
  output(a);
  {поворот на 180}
  rotate(a);
  writeln('матрица, повернутая на 180 градусов:');
  output(a);
  {поворот на 270}
  rotate(a);
  writeln('матрица, повернутая на 270 градусов:');
  output(a);
  readln
end.