var
sum:real;
i:integer;
begin
sum:=1000;
i:=0;
while sum<=7000 do
sum:= sum + sum/100*5;
i:= i+1;
end;
writeln(i);
end.
Объяснение:
