Среди чисел вида 0,25; 0,25*1,25; 0,25*1,25*2,25; … найти первое число большее заданного а на !

Var r, A : real;
begin 
   readln(A); 
   r := 0.25; 
   while (r < A) do r := r + 1; 
   writeln(r);
end.

Готово