Алгоритм Delphi

[hohol90]

Помогите, кто сможет, очень надо.

Нужно написать алгоритм для части программы, у меня никак не выходит.

Программа "Кредит"
Известная некая сумма (SUMM), сумма ежемесячной выплаты (MESSUMM) и процент по кредиту (PROC).
Так же существует конечная сумма (KONSUMM) которая в начале равна 0, а когда она станет равной (SUMM) то алгоритм по циклу останавливается. (Количество циклов = количеству месяцев)
(MINUS) - ВЫГОДА БАНКА.

На словах алгоритм такой:

начало цикла
KONSUMM=MESSUM-(SUMM*PROC)
SUMM=SUMM-(MESSUM-(SUMM*PROC))
MINUS=SUMM*PROC

Помогите вывести количество месяцев для погашения кредита (количество циклов);
Выгоду банка и прибыль банка помесячно.

[evg_m]

mes:=0;//установка исходных значений
while //начало цикла
KONSUMM>0 //когда она станет равной (SUMM) то алгоритм по циклу останавливается.
do begin
KONSUMM:=MESSUM-(SUMM*PROC);
SUMM:=SUMM-(MESSUM-(SUMM*PROC));
MINUS:=SUMM*PROC;
mes:=mes+1;
end;

[hohol90]

Спасибо очень помог!