помогите пожалуйста, где ошибки

Program hello;

var a,x,y:real;

var a:=-pi;

var x1:=8.3;

var x2:=0;

var x3:=-5.7;

begin

readln(a,x);

if ax<0

then

y := sgrt(x)+2*a

else

if ax=0

then

y := 1.38*a+x

else

y := exp(1/3*ln(a*x));

writeln('y=',y);

end.

program hello;

var

a, x, y: real;

begin

readln(a, x);

if (a * x < 0) then

y := sqrt(x) + 2 * a ;

if (a * x = 0) then

y := 1.38 * a + x ;

if (a * x > 0) then

y := exp((1 / 3) * ln(a * x)) ;

writeln('y=', y);

end.

Примечания:

1. В Паскале нельзя объявлять значения переменных в области var.

Можно только в программе.

Либо присвоением, либо вводом с клавиатуры(readln, которое есть в этой программе)

2. Паскаль не поддерживает 2 и более else.

3.Не sgrt, а sqrt (от английского square root)