Лабы Паскаль / лабы 5 / LAB_2_1

program lab_2_1;
var
a, x, y:real;

begin
a := 1.5;
writeln('Vvedite X [0,6]: ');
readln(x);
if (x < 0) or (x > 6) then
writeln('Nepravilnoe 4islo')
else begin
if x < 0.3 then y := a * exp(sin(x)) + 2.5 else
if x < 4 then y := exp(cos(x)) + a else
y := sin(x) / (a+exp(x));
writeln('Y = ', y);
end;
readln;
end.