Вычислить и распечатать значение функции Z = X^k/K^2, большие E если K = 1,2,3...40

var    x, xk: real;    k: integer;begin    readln(x);    xk := 1;        for k := 1 to 40 do     begin        xk := xk * x;        writeln(k, ' z=', xk / k / k);    end; end.