Дано вещественное число А(>1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+… +1/N будет больше A, и саму эту сумму — Pascal(Паскаль)

uses crt;
var z,a:real; n:integer;
function f(n:real):real;
 begin
     if n=1 then f:=1 else f:=1/n+f(n-1);
 end;
begin
     readln(a);
     n:=1;
     while f(n)<=a do
      inc(n);
      writeln(f(n));
writeln(n);
end.