---

program Lab10_Concise;
var
  x, s, y, cos_x, fact: real;
  i, n: integer;
begin
  n := 10;[span_1](start_span)[span_1](end_span)
  WriteLn('      x      |      Сумма (S)     |     Функция (y)     ');
  WriteLn('---------------------------------------------------------');
  
  x := 0.1; // Начало интервала[span_2](start_span)[span_2](end_span)
  while x <= 1.0 + 1e-9 do // Конец интервала[span_3](start_span)[span_3](end_span)
  begin
    s := 1.0;
    cos_x := Cos(x);
    fact := 1.0;
    
    for i := 1 to n do[span_4](start_span)[span_4](end_span)
    begin
      fact := fact * i;
      s := s + cos_x / fact;[span_5](start_span)[span_5](end_span)
    end;
    
    y := Exp(Cos(x)) * Cos(Sin(x));[span_6](start_span)[span_6](end_span)
    WriteLn(x:10:4, ' | ', s:18:6, ' | ', y:18:6);
    x := x + 0.1; // Шаг изменения аргумента
  end;
end.