Объяснение:
var
x, s:real;
c_d:integer;
begin
x:=5;
s:=100;
c_d:=1;
while (x <= s) do begin
x:=x * 1.1;
c_d:= c_d + 1;
end;
writeln(count_days);
end.
