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