переделать формулу под паскаль

function y(x:real):real;
var k:integer;
s:real;
begin
s:=0;
for k:=1 to 5 do
s:=s+ln(k*x);
y:=(cos(x)+s)/(0.5+x*x*x*x*x)
end;

Конечно, можно вычислить х в пятой и по-другому (через цикл или другие формулы), но не стОит огород городить )