Алгебраическое произведение это. Делаешь цикл от 1 до n и на каждом шаге бац-бац...
(1 + 2) в квадрате деленное на 4 умножить на (2 + 2) в квадрате деленное на 4 умножить на (3 + 2) в квадрате деленное на 4 и так далее до n.
На Питоне так n = int(input('n ') + 1
p = 1
for i in range(1, n):
p *= ((i + 2) ** 2) / 4
print(p) Паскаль не знаю
Program P1;
uses crt;
var i, n: integer;
p: real;
begin
clrscr;
p:=1;
writeln ('Введите с клавиатуры целое положительное число n, после чего нажмите клавишу Enter.'
write ('n='
readln ;
if n<=1 then writeln ('Ошибка: введенное Вами число не является положительным.' else begin
for i:=1 to n do p:=p*(sqr (i+2)/4);
writeln ('Результат произведения: ', p:0:2);
end;
write ('Программа завершена. Для выхода нажмите клавишу Enter.'
readkey;
end.