Пожалуйста посчитайте решить, последнее задание номер 3

var
    p: real;
    n, k: integer;

begin
    readln(n);
    p := 1;
    
    for k := 1 to n do
        p := p * (1 + k);
        
    writeln('P = ', p);
end.