В паскале Для заданного x вычислите y по формуле y=x^3+2.5x^2-x+1
Var x:integer; y:real; Begin Readln(x); y:=(sqr(x)*x)+(2.5*sqr(x))-x+1; Writeln(y); End.