Составить программу для вычисления следующей формулы: S=x^2+5x^3
Var s, x: integer; begin readln(x); s := x * x + 5 * x * x * x; writeln(s); end.