в чем ошибка? PascalABC

Question

var x,F: real; 
begin 
write('x='); readln(x); 
If (x>1) then F:=exp(3*ln(sin(2*x)))-cos(sqr(x))else; 
If (x<1) then F:=sqrt(abs(ln(sqr(x))+2))else; 
write(F) 
end.

Олег Карпенко · Accepted Answer

Оборванный ELSE. 
Я бы написал так 
 If (x>1) then F:=exp(3*ln(sin(2*x)))-cos(sqr(x)) 
 else 
 F:=sqrt(abs(ln(sqr(x))+2)) 
 
скобки проверите самостоятельно