066536 / 83А

program andzad83a;
uses crt;
var a,p:integer;
s:real;
begin
clrscr;
writeln('Vvedite a');
readln(a);
s:=1;
p:=1;
while s<=a do
s:=s+1/p;
p:=p+1;
writeln('S=' , s:8);
readln;
end.