{* Задача 440 *}

Unit ZADACH440;
Interface
Implementation
Begin
 writeln('Вычислить:

 ');
End.

Program zadach440;

Uses zadach440.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a : integer;
  k : integer;
  i : integer;
  s : real;
  p : real;
Begin
  writeln ('Введите a');
  readln (a);
  s := 0;
  p := 1;
  For k := 1 To a - 1 Do {* Увеличиваем k от 1 до a с шагом 1 *}
    s := s + sin(sqr(k) - 1) / cos(sqr(k) - 1);
  For i := 2 To 2 * a Do {* Увеличиваем i от 2 до 2 с шагом 1 *}
    p := p * (sin(i) / (exp(i - 1) + exp(5 * ln(abs(sin(i) / cos(i))))));
  If a > 20 Then
    writeln ('s=', s)
  Else writeln ('p=', p);
End.