Вычислить суммы и произведения, указанные в таблице, по заданным расчетным формулам - PascalABC.NET

const nn = 22;
 
function Mul_c(n: integer): real := 8 / (power(2, (n + 1) / (n - 1)) + 1);
 
begin
  //for
  var p_for := 1.0;
  for var n := 2 to nn do
    p_for *= Mul_c(n);
  writeln('for: ', p_for);
  //while
  var n := 2;
  var p_while := 1.0;
  while n <= nn do begin
    p_while *= Mul_c(n);
    n += 1;
  end;
  writeln('while: ', p_while);
  //repeat
  n := 2;
  var p_repeat := 1.0;
  repeat
    p_repeat *= Mul_c(n);
    n += 1;
  until n > nn;
  writeln('repeat: ', p_repeat);
end.