паскаль!! дано натуральное число Е. написать программу для вычисления суммы вида 1/1+1/2+1/3+...+1/Е

var i,e:integer; s:real;
begin write('e ? '); readln(e); s:=0; for i:=1 to e do s:=s+1/i; writeln(s:0:6); readln end.