Программа

USES CRT;  { Подключение модуля содержащего процедуру очистки экрана }
CONST xBegin=4.2;
      xEnd=7.7;
      dx=0.5;
      a=-1;
VAR x:real; { Аргумент }
    i:integer; { Счетчик }
BEGIN
  ClrScr;  { Очистка экрана }
  x:=xBegin;   { Начальное определение аргумента }
  WriteLn('--------------------');
  WriteLn('|   x   |     y    |');
  WriteLn('--------------------');
  for i:=0 to Round((xEnd-xBegin)/dx) do
    Begin
      WriteLn('| ',x:5:2,' | ',(Sin(Sqrt(a+x))+Sin(a))/(12.39+a*x):8:5,' |');
              { Вывод аргумента и вычисление и вывод значения функции }
      x:=x+dx  { Переопределение аргумента }
    End;
  WriteLn('--------------------');
  ReadLn  { Остановка программы до нажатия <Enter> }
END.