Записать выражение на языке Pascal 2x+y/3(неравно)(x+5)^2
Получится так: if (2*x+y/3)<>sqr(x+5) then ...
Ну так уберите if и then ...
(2*x+y)/3 <>sqr(x+5)