var a, x, y: real;
begin
write('a: ');
readln(a);
write('x: ');
readln(x);
y := (sin(3*x) + a)*x*x;
write(y);
end.
Пример работы:
