Developing.ru

Составить программу нахождения переменной Y для различных значений аргумента X, используя операторы CASE и IF. Вывести на печать значение аргумента, функции и промежуточных переменных. Предусмотреть в программе обход арифметических операций, которые могут при определенных значениях аргумента X иметь неопределенный результат, т.е. деление на ноль, извлечение корня парного степени из отрицательного числа, логарифма отрицательного числа.

Ну, прежде всего, создайте функции, вычисляющие t1 и t2 от х. Примерно так:
function t1(x: real): real;
begin
....
end;
Создаете функцию Y от Х, использующую внутри себя t1 и t2 от того же Х.
После этого прогоняете эту функцию для всех Х