Дано вещественное число х.найдите значения полинома: 4х^5-х^3+х^2-х+4

Program Count;
uses crt;
var x,y:real;
begin
clrscr;
write('Введите Х: ');
readln(x);
y:= 4*x*sqr(sqr(x))-x*sqr(x)+sqr(x)-x+4; {В паскале sqr(x) означает  х²}
writeln('X = ', Y);
readln
end.