Сайран с принтера распечатал собственный проект​

1. Определим производительность каждого принтера, т.е. какую часть грамоты он отпечатает за 1 минуту.
1-й: 1/5, 2-й: 1/7, 3-й: 1/9.
2. Работая вместе, все три принтера напечатают за минуту 1/5+1/7+1/9=
143/315 часть грамоты.
3. Определим время, которое понадобится чтобы сделать всю работу
2018/(143/315) ≈ 4445 мин.
4. Определим, сколько грамот напечатает за это время каждый принтер.
1-й: 4445/5 = 889, 2-й: 4445/7 = 635, 3-й: 4445/9 = 493.8.
5. Поскольку 3-й принтер не успевает напечатать одну грамоту, поправим время работы: 494х9 = 4446 мин.
6. Проверка. 889+635+494 = 2018.

ответ: 4446 мин или 3 суток 2 часа 6 минут

Var i,j,n: integer;
    a: array[,] of real;
begin
  write('n = ');  readln(n);
  setlength(a,n+1,n+1);
  randomize;
  writeln('исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(-20,20);
      write(a[i,j]:4);
    end;
    writeln;
  end;
//транспонирование матрицы
  for i:=1 to n-1 do
  for j:=i+1 to n do  swap(a[i,j],a[j,i]);
//вывод на экран  
  writeln('транспонированная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
end.

n = 4
исходная матрица:
  -5  16 -10   5
  -4 -20   6  14
  -2  10  -4  -7
 -16   1  -9  13
транспонированная матрица:
  -5  -4  -2 -16
  16 -20  10   1
 -10   6  -4  -9
   5  14  -7  13