записать на алгоритмическом языке​

:

var i:integer; x:real;

begin

i:=1;

x:=10;

repeat

i:=i+1;

x:=x+0. 1*x;

until x>=25;

writeln(i);

end.