Паскаль. Дано число x и последовательность 1,1+1/2,1+1/2+1/3...,найти первое число этой последовательности большее, чем x, вывести порядковый номер числа и его величину.

Var

  a, y: real;

  i: integer;

begin

  readln(a);

  if a lt; 1 then writeln(1, , 1)

  else

  begin

    i := 1;

    y := 0;

    while y lt;= a do

    begin

      y := y + 1 / i;

      inc(i);

    end;

    dec(i);

    writeln(i,   , y:0:10);

  end;

end.