Студент зa лето заработал C РУб. Ежемесячная стипендия студента составляет А руб, расходы на проживание - В руб. (А<В). Рост цен ежемесячно увеличивает

расходы на проживание на 3%. Написать программу, определяющую, на сколько месяцев хватит денег. Задача в Паскале

Var A, B, C : real;

time : integer;

begin

Writeln ('сколько заработал за лето') ;

readln (c) ;

Writeln ('стипендия = ') ;

readln (A) ;

Writeln ('расходы на проживание') ;

Readln (b) ;

C:=c+a-b;

while (c>=0) do begin

C:=c+a-b;

b:=b + (b/100*3) ;

time:=time+1;

end;

writeln ('денег хватит на ', time,' месяцев') ;

end.