{* Задача 427 *}

Unit ZADACH427;
Interface
Implementation
Begin
 writeln('Табулировать:

 ');
End.

Program zadach427;

Uses zadach427.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Const {* Предопределенные *}
  a0 = - 1.25 * Pi;
  a1 = 0.75 * Pi;
  da = Pi / 10;
Var {* Необходимые переменные *}
  gamma : double;
  a     : double;
  x     : double;
  i     : longint;
Begin
  writeln ('id  |   a   |   gamma(a)');
  writeln{'---+----+--------------'}
  ; {Вычисления для заполнения таблицы}
  For i := 0 To round((a1 - a0) / da) Do {* Увеличиваем i от 0 до round((a1 с шагом 1 *}
  Begin
    a := a0 + da * i;
    x := exp(a) + exp( - a); {расчет первой функции}
    Gamma := 0.5 * x - 2 * cos(x + pi / 4); {расчет второй функции}
    writeln(' ', i : 2, ‘| ‘, a : 0:3, ' | ', gamma : 0:6); {вывод на экран значений аргумента и функции}
  End;
  
End.