var
a, b, y: real;
begin
Write('Введите значение a: '); ReadLn(a);
Write('Введите значение b: '); ReadLn(b);
if a >= exp(1) then y := sqr(b + pi) + exp(a + 1)
else if a < 0 then y := tan(sqr(b) + pi) - ln(abs(a))
else y := sqr(a) / 3 - exp(ln(b + pi) / 3);
WriteLn('При a = ', a, ' y = ', y:0:4);
end.
Объяснение:
