Progtam asd;
Uses crt;
Var a,n,s:integer;
begin
readln (n);
for a:=3 to n do
s:=a+s;
end.
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,' месяцев');
<span>end.</span>