Помогите пожалуйста написать программу решающую эту задачу в pascalABC. Заранее спасибо​

Ответ:

pascalABC

Объяснение:

var x, y: real;

begin

 Write('Введите значение аргумента x = '); ReadLn(x);

 if x < 1 then y := exp(1) / tan(2.9 + 3 * x)

 else if x > 6 then y := sin(3 * x) + ln(x + 0.3)/ln(10)

 else if (x >= 2) and (x <= 4) then y := 0.6 * ln(abs(5 - sqr(x)))

 else begin WriteLn('Аргумент вне диапазона!'); exit; end;

 WriteLn('y(', x, ') = ', y:1:3);

end.