На Паскале:
var x,y:real;
begin
writeln('Введите значение x: ');
readln(x);
y:=5*abs(16-abs(3*sqr(x)+1)+8);
writeln('y = ',y);
end.
