Кто выполнил задания Сириуса по информатике

var

  a:array[1..100, 1..100] of real;

  n, m, i, j:integer;

  Sr:real;

begin

  write('Введите количество строк матрицы '); readln(m);

  write('Введите количество столбцов матрицы '); readln(n);

  writeln('Исходный массив:');

  Sr := 0;

  for i := 1 to m do

  begin

    for j := 1 to n do

    begin

      a[i, j] := random(101) - 50;

      write(a[i, j]: 5:0);

      Sr := Sr + a[i, j];

    end;

    writeln;

  end;

  Sr := Sr / (n * m);

  writeln('Среднее арифметическое равно ', Sr);

  writeln('Элементы больше среднего арифметического:');

  for i := 1 to m do

    for j := 1 to n do

      if a[i, j] > Sr then

        writeln('a[', i, ', ', j, '] = ', a[i, j]);

end.

Program razgovor;

uses crt;

var c1,c2,c3:integer;

    t1,t2,t3:integer;

begin

  Write('Введите цену разговора с первым пунктом, с1= ');

  Readln(c1);

  Write('Введите цену разговора со вторым пунктом, с2= ');

  Readln(c2);

  Write('Введите цену разговора с третьим пунктом, с3= ');

  Readln(c3);

  Write('Введите длительность разговора с первым пунктом, t1= ');

  Readln(t1);

  Write('Введите длительность разговора со вторым пунктом, t2= ');

  Readln(t2);

  Write('Введите длительность разговора с третьим пунктом, t3= ');

  Readln(t3);

  clrscr;

  Writeln('Общая стоимость разговора = ',c1*t1+c2*t2+c3*t3)

end.