На самом деле, выражения можно упростить, но запишем, как есть.
var
x,y,z,f:real;
begin
Write('x='); Read(x);
y:=(x*x-5*x)/3;
z:=sin(x)+2*sin(x)-1;
f:=(y*y*y+x*y)/2;
Writeln('y=',y,', z=',z,', F=',f)
end.
Пример
x=4.19
y=-1.1313, z=-3.59988900245333, F=-3.0940148206485