Составить программу на Паскале для вычисления функции

program fun;

var

 x, y: real;

begin  

 writeln('Введите число x= ');

 read(x);

 y:=x*x*x-(x*x-x+3)/sqrt(x);

 writeln('y= ',y:4:2);

end.