На заводе по производству резиновых уточек работает фасовочный кран. Он берет готовую утку с конвейера и кладет её в ящик того же цвета, что и утка. Кран выполняет следующие действия: 1. Опускается, берет утку, поднимается. 2. Везет утку к ящику нужного цвета. 3. Опускается, кладет утку в ящик, поднимается. 4. Едет на стартовую позицию (в начало Такие операции кран производит до тех пор, пока конвейер не опустеет. Операции 1 и 3 занимают у крана по 3 секунды. Чтобы доехать до зелёного ящика, крану нужно 2 секунды, до розового — 3 секунды, до голубого — 4 секунды, до жёлтого — 5 секунд. Сколько секунд понадобится крану, чтобы распределить по ящикам всех уток на конвейере?

const n = 5;
          m = 5;
var
  a: array[1..n, 1..m] of integer;
  i, j, tmp, s_s: integer;
  magic: boolean;
begin
  magic := true;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i, j] := random(50);
      write(a[i, j]:4);
      if(i = 1) then s_s := s_s + a[i, j];
      if(j mod m = 0) then writeln;
    end;
  end;

  for i := 2 to n do begin
    tmp := 0;
    for j := 1 to m do begin
      tmp := tmp + a[i, j];
    end;
    if(tmp <> s_s) then begin
      magic := false;
      break;
    end;
  end;

  for i := 1 to n do begin
    tmp := 0;
    for j := 1 to m do begin
      tmp := tmp + a[j, i];
    end;
    if(tmp <> s_s) then begin
      magic := false;
      break;
    end;
  end;
  if(magic) then writeln('Матрица является магическим квадратом') else
    writeln('Матрица не является магическим квадратом');
end.