Записать на языке программирования паскаль φ=x(sin x³+cos² y)

Var x,y,f:real;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
f:=x*(sin(x*x*x)+cos(y)*cos(y));
writeln('f = ',f);
end.

Пример:
x = 0.8
y = 1.4
f = 0.415048470436834