Program For10;
var
n:integer;
temp:real;
i:integer;
begin
temp:=0;
write('Enter n:');readln(n);
for i:=1 to n do
begin
temp:=temp+(1/i);
end;
writeln('Summa = ',temp);
end.