Question

Написать программу вычисления значения выражения:
1). y = (3x³ + 18x²)

Answer 1

var

 y, x: integer;

begin

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

 readln(x);

 y := 3 * (x * x * x) + 18 * (x * x);

 writeln('y = ', y);

end.