Вычислить значение функции на интервалах - Free Pascal

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

Написать программу, вычисляющую значение функции: Это система tg(x) / lg(x) + cos(x), если x < -7; x ^ (1 / 3) - sin(x), если -7 <= x < -1; x ^ 3 * e ^ x + cos(x) / x ^ (0,1 * x), если -1 <= x < 6; x ^ 2 * 22 - x ^ (1 / 3), если 6 <= x. ЗЫ: Первая лаба по программированию. Разбираюсь в этом плохо. Что нужно для того, чтобы справляться с такими заданиями, с чего начать? ЗЫ2: Прикрепил свой код, но программа не работает.

Решение задачи: «Вычислить значение функции на интервалах»

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

ввод x; 
if условие then 
 выражение
else
 if условие then
  выражение
   else
    ...

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

Ввод переменной x.
Проверка условия.
Если условие истинно, то выполнение выражения.
Если условие ложно, то переход к следующему условию.
Если второе условие истинно, то выполнение выражения.
Если второе условие ложно, то выполнение следующего выражения.
...
...
...
...
...
...
...
...
...
...
...
...
...
...