Вычислить и распечатать значение функции z = x^k/k^2, большие e если k = 1,2,

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.