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

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.