Программа

USES CRT;          { Подключение модуля содержащего процедуру очистки экрана }
CONST a=2.27;      { Параметр функции }
VAR x,y:real;      { Аргумент и значение функции }
BEGIN
  ClrScr;                       { Очистка экрана }
  Write('Введите x ');          { Вывод приглашения ввести аргумент }
  ReadLn(x);                    { Ввод аргумента }
  { Выбор формулы по аргументу и вычисление значения функции: }
  if x<2 then y:=a*Ln(Abs(x))
         else if x<7 then y:=a*Cos(x-6)/20
                     else y:=a*Sin(x-8)/(Cos(x-8)*x*x*x);
  WriteLn('y=',y:0:3);          { Вывод значения функции }
  ReadLn                        { Остановка программы до нажатия <Enter> }
END.