program while14;
uses crt;
var 
  a,i,k:integer;
  sum:real;
begin 
  clrscr;
  write('Введите число ');
  readln(a);
  sum:=0;
  k:=1;
while sum < a do
  begin
    sum:=sum+1/k;
    inc(k);
  end;
  writeln('Число ',k-1);
  writeln('Сумма ',sum-1/k);
  readln;
end.