Паскаль вычислите значение переменной "y" при заданном значении "n"

Var
i,n:integer;
y:real;
begin
write('Введите n=');read(n);
y:=0;
for i:=1 to n do
y:=y+1/i;
write('Сумма=',y);
end.