Делфи, написать программу все изложено в фото

Question

Делфи, написать программу
все изложено в фото

---

---

Answer 1

Var
    k, i, n, m: integer;
    p: real;

begin
    Write('m = ');
    Readln(m);
    
    for i := 1 to m do
    begin
        n := i * i;
        p := 1;
        for k := 1 to n do
            p := p * (1 + i) * i / k / k;
        
        writeln('p = ', p:10:10, ' m = ', i);
    end;
end.