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

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.

Объяснение: