Составить программу для вычисления значений переменной 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.

Объяснение:

#include <iostream>

#include <vector>

using namespace std;

int main()

{

   setlocale(LC_ALL, "RU");

   int N;

   cin >> N;//массив на N элементов

   vector<int>a;

   for (int i = 0; i < N; i++)

       a.push_back(rand()%100);// заполнение массива числами от 0 до 100

   for (int i = 0; i < N; i++)

       cout << a[i] << " ";

   cout << endl;

   bool flag=false;

   int number;

   for (int i = 0; i < N; i++) {

       auto r = find(a.begin(), a.end(),a[i]);// функция стандартной библиотеки для поиска

       if (r != a.end()&&r-a.begin()!=i)

       {

           number = r - a.begin();// номер элемента массива с одинаковым значением

           flag = true;

           break;

       }

   }

   if (flag)

       cout <<"В массиве присутствуют элементы с одинаковыми значениями. Одним из равных значений является: "<<a[number];

   else

       cout << "В массиве не присутствуют элементы с одинаковыми значениями";

}

Var  ar: array[1..10000]of integer;
  ms: array[1..10000]of integer;
  i, c, n, j, p: integer;  b: boolean;
begin
  randomize;
  b := true;
  c := 1;
  write('Введите количество элементов массива:');
  read(n);
  writeln('Массив:');
  for i := 1 to n do ms[i] := -2147483648;
  for i := 1 to n do begin ar[i] := random(11); write(ar[i], ' '); end;
   for i := 1 to n do
    for j := i + 1 to n do
    begin
      if (ar[i] = ar[j]) then
       begin
        for p := 1 to c do
           if (ar[i] = ms[p]) then b := false;
           if (b = true) then begin ms[c] := ar[i]; c := c + 1; end;
        end;
      b := true;
    end;
  writeln;
  if (c = 1) then write('Нет')
   else  
begin
    write('Есть:');
    for i := 1 to c - 1 do  if(i <> c - 1) then write(ms[i], ',')  else write(ms[i]);
  end;
end.