program z3n29;
 uses crt;
 var
  x,x1,x2,d,y,s: real;
  n: byte;
  begin
   X1:=pi;           { X - конечный }
   X2:=pi/5;         { X - начальный }
   d:=abs(X2-X1)/9;  { Шаг изменения аргумента }
   x:=pi/5;          { Начальное значение Х }
   clrscr;

   { Используется для создания таблицы при выводе }
   writeln('ЙННННННЛННННННННННЛНННННННННН»'); 
   writeln('є   x ',' є    s  ','   є     y    є');
   writeln('МННННННОННННННННННОНННННННННН№');

   while (x < pi) do
    begin

        for n:= 0 to 40 do     { Шаг 40 }
          begin
           s:=s+cos(x)+cos(3*x)/9+cos((2*n-1)*x)/sqr(2*n-1);  { Функция S(x) }
          end;

       y:=sqr(pi)/8-abs(x)*pi/4;                              { Функция Y(x) }
       writeln('є',x:5:1,' є  ',S:5:4,' є  ',y:5:4, '  є'); { Вывод результата }                                                            
       x:=x+d; 
    end;
     writeln('ИННННННКННННННННННКННННННННННј');            
    readkey
  end.