Program Begin26;
Var
x,y:Real;
Begin
WriteLn('Введите х');
ReadLn(x);
y:=4*(sqr(x - 3)*sqr(x - 3)*sqr(x - 3)) - 7*sqr(x - 3)*(x - 3) + 2;
WriteLn('y(x) = ',y);
ReadLn;
End.