[4] + a [3] [5]; [2] [0]: = a [3] [1 ]/G3; [2] [1]: = a [3] [2]/G3; [2] [2]: = a [3] [3]/G3; [2] [3]: = a [ 3] [4]/G3; [2] [4]: ​​= a [3] [5]/G3;: = a [4] [1] + a [4] [2] + a [4] [3 ] + a [4] [4] + a [4] [5]; [3] [0]: = a [4] [1]/G4; [3] [1]: = a [4] [2 ]/G4; [3] [2]: = a [4] [3]/G4; [3] [3]: = a [4] [4]/G4; [3] [4]: ​​= 0; i: = 1 to 4 doAm [i]
label13.Caption: = 'Найбільш оптимальний кредит, Ви можете оформити в:'
end; TForm1.Button3Click (Sender: TObject);
begin;;.
