Ответ:

y:=3-7.5*x+x*x-((x*x+2*x-8)/3);

Объяснение:

var

   x, y: Double;

begin

   Read(x);

   y := 3 - 7.5 * x + sqr(x) - (sqr(x) + 2 * x - 8) / 3;

   WriteLn(y)

end.