uses Math;var y, x, a: real; begin Write('Введите x: '); Readln(x); Write('Введите a: '); Readln(a); if (x < -2) then y := Power(x, 2.0) + Power(a, 3.0) * x else if ((x >= -2) and (x <= 4)) then y := a * Sin(x) else if (x > 4) then y := Exp(x - a) else Writeln('Вы ввели недопустимое значение x!'); Write('y = ', y); end.
