Что здесь хоть решать? Функция для вычисления аргумента function Y(x: Extended): Extended; begin Result := (Sqr(x) + Cos(4*x)) / (x-9); end А дальше в цикле for oт 6 до 11 обращаетесь к ней передавая параметром значение переменной цикла и выводите результат