Как написать программу в паскале ?

Дана кусочная функция вида
f(x) =
1) lg(x+1) x<3
2) sqr(sin(sqrt(abs(a*x)))) x>=3
Все это объеденено фигурной скобкой
Протабулировать эту функцию (получить табличное значение на заданном интервале изменения аргумента x Э [xnach ; xkon]) c заданным шагом h и параметром a. Учесть особую точку (x + 1 =< 0 ) ! Задание выполнить 4-мя способами ( for,while,repeat,if) .

Условие забыл написать. Вот.