Question

Помогите пожалуйста если не все хотя бы 3 номер, 4 ненадо

Answer 1

Var x:real;
i:integer;
begin
  i:=1; x:=10;
  repeat
    i:=i+1;
    x:=x+ 0.1*x;
  until x>=25;
  writeln(i);
end.