С помощью Паскаля НАЙТИ СУММУ: 1/1+1/2+1/3...1/n

Question

С помощью Паскаля НАЙТИ СУММУ:

1/1+1/2+1/3...1/n

Answer 1

program P1;
uses
crt;
var
n,i : integer;
summ : real;
begin

clrscr;

write('N = ');
read(n);

summ := 0;

for i := 1 to n do
summ := summ + 1/i;

writeln('Otvet: ',summ);

readln;
readln;

end.