uses Math; var x, f: real; begin Write('Введите x: '); Read(x); if (x < 0) then f := Power(x, 2.0) - 3 - Sin(x) else if ((x >= 0) and (x < 1)) then f := Power(Power(x, 2.0) + 3, 2.0) - Cos(x) else if (x >= 1) then f := x * (Power(x, 2.0) + 3); Writeln('f(x) = ', f);end.
