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

На самом деле, выражения можно упростить, но запишем, как есть. 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