Ответ:

program z;

var x,y:real;

begin

read(x);

if x>=1 then y:=(x-1)/(x*x+1)+1 else y:=abs(6-sqr(x)*sqr(x)*x);

write(y);

end.

Объяснение:

использовали условный оператор с полной формой ветвления (if x>=1 then y:=(x-1)/(x*x+1)+1 else y:=abs(6-sqr(x)*sqr(x)*x);)

sqr - возведение в квадрат

abs - модуль числа