Задано число n. Определить значение выражения - PascalABC.NET

Формулировка задачи:

Задано число n. Определить значение выражения.

Решение задачи: «Задано число n. Определить значение выражения»

Листинг программы

begin
  var n := ReadLnInteger('n =');
  var Pup := 1.0; var Pdown := 0.0;
  for var i := 1 to n do
    begin Pup *= i; Pdown += i; end;
  WriteLn('P = ', Pup / Pdown);
end.

Объяснение кода листинга программы

В начале кода объявляются две переменные Pup и Pdown, которые будут использоваться для хранения значений.
Затем с помощью цикла for происходит вычисление значения выражения Pup *= i; Pdown += i;.
После окончания цикла, значение выражения P = Pup / Pdown; выводится на экран.