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

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.