Скласти лінійну програму мовою Turbo Pascal для обчислення значень величини Y=x^4 - 5x^3+x^2-15x+50

var

 y:real;

 x:real;

begin

writeln('Введите x: ');

readln(x);

y := power(x, 4) - 5*power(x,3)+ sqr(x) - 15*x + 50;

writeln('y = ', y);

readln();

end.