Блок схемы

Program Work;
Uses
  CRT;
Const
  N=10;
Type
  ArrayA=array [1..N,1..N] of real;
 
     { ввод фактического количества  k  строк  и  столбцов квадратной  матри-цы  A }
Procedure InputN(Var k:integer);
Begin
  Repeat
       Write('Введите значение N=>');
       Readln(k);
  Until (k<=N) and (k>1);
End;
 
     { ввод значений вещественных элементов матрицы  A }
Procedure InputMatrix(k:integer; Var A:arrayA);
Var i,j:integer;
Begin
  for i:=1 to k do
  for j:=1 to k do
    Begin
         Write('Введите значение элемента матрицы A[',i,',',j,']=>');
         Readln(A[i,j]);
    End;
End;
 
     { вывод значений вещественных элементов матрицы  A }
Procedure OutputMatrix(k:integer; A:arrayA);
Var i,j:integer;
Begin
  Writeln('         ------- Исходная матрица -------');
  for i:=1 to k do
    Begin
         for j:=1 to k do
              Write(A[i,j]:7:2,'  ');
         Writeln;
    End;
End;
 
Var
  k,i,j: integer;
  A: ArrayA;
  sum: real;
begin
  { ввод данных }
  InputN(k);
  InputMatrix(k, A);
  { вывод исходного массива }
  OutputMatrix(k, A);
  { вычисление }
  for i:=1 to k do
  if (i mod 2)=0 then
  begin
    sum:=0;
    for j:=1 to k do
      sum:=sum+A[j,i];
    writeln('Столбец ', i, ' - Среднее арифметическое ', sum/k);
  end;
end.