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

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.