Как как известно, автомобиль, изобретенный винтиком и шпунтиком, работает не на бензине, а на газировке разных сортов. на одном литре лимонада он проезжает 120 км, на одном литре кока-колы — 100 км, на одном литре фанты — 150 км. цена одного литра фанты в цветочном городе — 3 монеты за литр, лимонада — 1 монета за литр, кока-колы — 2 монеты за литр. готовясь к путешествию, незнайка закупил 10 литров кока-колы, 5 литров лимонада и 10 литров фанты. винтик и шпунтик вместе купили 10 литров лимонада и 10 литров фанты. торопыжка — 5 литров фанты, 10 — кока-колы и 10 — лимонада. поэт цветик — 20 литров фанты.построить электронную таблицу, из которой будет видно: сколько всего литров горючего купил каждый из человечков, сколько ему это стоило и какое расстояние он может проехать на этом горючем; сколько всего было куплено горючего каждого вида всеми человечками вместе, сколько это стоило и какое расстояние можно проехать на этом горючем; сколько всего горючего всех видов было куплено всеми человечками и сколько оно стоило.

// PascalABC.Net 3.0, сборка 1066
// PascalABC.Net 3.0, сборка 1066
const
  nn=50;
  mm=50;
var
  a:array[1..mm,1..nn] of integer;
  i,j,m,n,k:integer;
begin
  Write('Введите число строк и столбцов массива: '); Read(m,n);
  Write('Введите значение, заменяемое нулем: '); Read(k);
  Randomize;
  Writeln('*** Исходный массив ***');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4)
    end;
    Writeln
  end;
  Writeln('*** Результирующий массив ***');
  for i:=1 to m do begin
    for j:=1 to n do begin
      if i+j=k then a[i,j]:=0;
      Write(a[i,j]:4)
    end;
    Writeln
  end
end.

Тестовое решение:
Введите число строк и столбцов массива: 10 8
Введите значение, заменяемое нулем: 11
*** Исходный массив ***
 -23   8   2  -4   6  17 -11 -20
 -15 -18  -8  15   1   3 -12  -4
 -14   9   3  -2  20 -13  21 -23
 -20  24 -13  18  -6 -16 -19 -23
 -24 -25 -16   1   0  18  -7  -8
  -7  22  19  -6 -25  -6 -23  17
   9 -23  -7  18   5  -9  11  16
  12   0  -9   8   4  -4  12 -24
 -24 -10  13   1  -7  13  21  -6
  -9 -14 -21  24  -6   2 -24  11
*** Результирующий массив ***
 -23   8   2  -4   6  17 -11 -20
 -15 -18  -8  15   1   3 -12  -4
 -14   9   3  -2  20 -13  21   0
 -20  24 -13  18  -6 -16   0 -23
 -24 -25 -16   1   0   0  -7  -8
  -7  22  19  -6   0  -6 -23  17
   9 -23  -7   0   5  -9  11  16
  12   0   0   8   4  -4  12 -24
 -24   0  13   1  -7  13  21  -6
   0 -14 -21  24  -6   2 -24  11

Да без проблем!

gcd(77164189341682084692124351766096496451364840671846455244761, 46668734283684548617206823665104829826096872771679324943689);

448643232670469

a:=ifactor(77164189341682084692124351766096496451364840671846455244761);

   4                                                            
(3)  (11) (503) (809) (573384723060967) (448643232670469) (492166512383869) (1680979)

b:=ifactor(46668734283684548617206823665104829826096872771679324943689);
(781199815286623) (283598494080047) (448643232670469) (39869)
(11776697129)