НАДО СРОЧНО РЕШИТЬ ДАННУЮ ЗАДАЧУ В ФОТО

Ответ:

var i: integer;

var x: real;

begin

i:=1;

x:=10;

while (x < 25) do

begin

i:=i+1;

x:=x + 0.1 * x;

end;

writeln(i)

end.