В чем ошибка? Помогите

Среда PascalABC.NET
#1

program функция; var x,y:real; begin write(‘ввести значения x’); readln(x); if x<=0 then y:=(1-xx)/(2exp(x)) else (sqr(1+x*x))/(3+x); writeln (‘y=’,y); end.

Постоянно пишет в 7 строчке после else (sqr(1+x*x)) встречено ‘/’, а ожидалось ‘;’

#2

7 строка должна быть такая: else y := (sqr(1 + x * x)) / (3 + x);