Составить программу на Паскале для вычисления функции
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.