Составить программу для вычисления значений переменной y при заданном значении n.(использовать три различных оператора цикла) y=

Var
y:real;
n,i:integer;
Begin
Write('n = ');ReadLn(n);
{Цикл с параметром:}
y:=0;
For n:= 1 to n do
    y:=y+(1/n);
WriteLn('y = ',y);

{Цикл с постусловием:}
y:=0;
i:=1;
Repeat
y:=y+(1/i);
i:=i+1
Until i>n;
WriteLn('y = ',y);

{Цикс с предусловием:}
y:=0;
i:=1;
While i<=n do
   Begin
   y:=y+(1/i);
   i:=i+1
   End;
WriteLn('y = ',y)
End.