Студент з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.