Составная функция для определения попадания числа в диапазон - Pascal ABC

Формулировка задачи:

program funk;
var x: real;
begin
write('введите x');
  readln(x);
if x>1 then 
    writeln('y = ', sin(2*x)*sin(2*x)*sin(2*x)-cos*x*x)
else if x=1 then 
    writeln('y = ', 1)
else if x<1 then 
   writeln('y = ', sqrt(abs(ln(x*x)+2)) );
else if ('x не попал в диапазон')
 
end.

Почему программа не выполняется?

Решение задачи: «Составная функция для определения попадания числа в диапазон»

Листинг программы

program funk;
var
  x: real;
begin
  write('введите x');
  readln(x);
  if x>1 then
    writeln('y = ', sin(2*x)*sin(2*x)*sin(2*x)-cos(x)*x*x) // косинус без аргумента
  else
    if x=1 then
      writeln('y = ', 1)
    else
      if x<1 then
        writeln('y = ', sqrt(abs(ln(x*x)+2)) ) ///; перед else
      else
        writeln('x не попал в диапазон'); // вообще чушь была
end.

Объяснение кода листинга программы

Программа начинается с объявления переменной x типа real.
С помощью функции write пользовательу предлагается ввести значение x.
С помощью функции readln считывается введенное пользователем значение x.
Выполняется проверка: если x больше 1, то вычисляется значение y по формуле sin(2x)sin(2x)sin(2x)-cos(x)x*x).
Если x равно 1, то выводится значение y равное 1.
Если x меньше 1, то вычисляется значение y по формуле sqrt(abs(ln(x*x)+2))).
Если x не попало в диапазон от 1 до 1, то выводится сообщение x не попал в диапазон.