program while13;
 
uses crt;
 
var 
  a,s:real;
  k:longint;
begin
  clrscr;
  repeat
    writeln('Введите число (A>1) ');
    readln(a);
  until a > 1;
    s:=1;
    k:=1;
  while s < a do
    begin
      k:=k+1;
      s:=s+1/k;
    end;
  writeln('Число ',k);
  writeln('Сумма ',s:5:2);
  readln;
end