uses crt;
var n,i:integer;
r:real;
begin
clrscr;
writeln('Vvedite n');
readln(n);
for i:=0 to n-1 do begin
r:=r+1/(i+1)
end;
writeln('Resultat: ',r:3:2);
readln;
end.
uses crt;
var n,i:integer;
r:real;
begin
clrscr;
writeln('Vvedite n');
readln(n);
for i:=0 to n-1 do begin
r:=r+1/(i+1)
end;
writeln('Resultat: ',r:3:2);
readln;
end.