Составит программу на паскале

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.