Вычислить произведение - PascalABC.NET (24742)

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

Как будет это на паскале? Вычислить произведение:

Решение задачи: «Вычислить произведение»

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

var n,k:integer;
    p,x,c,z:real;
begin
write('x=');
readln(x);
write('n=');
readln(n);
c:=x+1;
z:=1;
p:=(1+c)/sqr(z+3);
for k:=2 to n do
 begin
  c:=c*(x+1);
  z:=z*(k-1);
  p:=p*(1+c)/sqr(z+3);
 end;
write('P=',p);
end.

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

Переменные n, k, p, x, c, z объявлены как целочисленные и вещественные соответственно.
Пользователю предлагается ввести значение переменной x.
Пользователю предлагается ввести значение переменной n.
Значение переменной c устанавливается равным x + 1.
Значение переменной z устанавливается равным 1.
Значение переменной p устанавливается равным (1 + c) / sqr(z + 3).
В цикле от k = 2 до n выполняются следующие действия:
- Значение переменной c устанавливается равным c * (x + 1).
- Значение переменной z устанавливается равным z * (k - 1).
- Значение переменной p устанавливается равным p * (1 + c) / sqr(z + 3).
Значение переменной p выводится на экран.