Можете перевести с математического на паскаль? :)

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.