[lmikle]

А кто тебе сказал, что это задача на вложенные циклы?
Это задача на цикл While...

Код:

function fact(n : integer) : integer;
var
  i : integer;
begin
  result := 1;
  if n > 1 then 
    for i := 2 to n do
      result := result * i;
end;

function f(x : double; n : integer) : double;
begin
  result := x/sqrt(x)*(fact(n+2));
end;

procedure makeA(x : double);
var
  n : integer;
begin
  n := 1;
  while (n < 10) or (f(n+1) > exp(10,-5)) do
    begin
      writeln(format('a[%d] = %.8f',[n,f(n)]);
    end;
end;

PS. Код для консольки.