Question

Решите через Паскаль, пожалуйста!

Answer 1

var n,i: integer;
s:real;
begin
readln (n);
for i:=1 to n do s:=s+1/i;
writeln (s)
end.