var
a,b:real;
i:integer;
 begin
writeln ('введите a');
readln (a);
b:=0.25;
i:=1;
while b<=a do begin
b:=b*(b+i);
i:=i+1;
end;
write ('Ответ ',b);
end.