Выполните ПОЖАЛУЙСТА на языке ПАСКАЛЬ. СРОЧНО!!!!!!!!!!!!!!!! Если можно на компьютере

На самом деле, выражения можно упростить, но запишем, как есть.

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