Помогите пожалуста почему это не работает????
y=sqrt (x+1)2 (3-x)в 4 степени
Program algor;
uses
Crt;
var
x,a2:word;
a1,y:integer;
begin
clrscr;
writeln('введите');
write('X= ');
readln(x);
a1:=sqr(x+1);
a2:=Exp(4*ln(3-x));
y:=sqrt(a1*a2);
write('y= ');
readln;
end.