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

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.