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.