{* Задача 524 *}

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

');
End.

Program zadach524;

Uses zadach524.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  a   : Array[1..5] Of real;
  sum : real;
  y   : real;
  xn  : real;
  h   : real;
  i   : integer;
Begin
  ClrScr; {* Стираем всё с экрана *}
  Writeln('Введите Xn');
  Readln(xn);
  Writeln('Введите h');
  Readln(h);
  sum := 0;
  For i := 1 To 5 Do {* Переменная i увеличивается с 1 до 5 *}
  Begin
    writeln('Введите a', i);
    readln(a[i])
  End;
  For i := 1 To 5 Do {* Увеличиваем i от 1 до 5 с шагом 1 *}
  Begin
    If xn > 0.2 Then
      y := ( - exp(1 / 3*ln( exp(xn * ln(3)) - sqr(xn))) + sqr(xn) * cos(2 * xn)) /     Решение     sqrt(exp(0.5 * xn * ln(xn)) - cos(2 * xn))
    Else Begin
      writeln('Не имеет решения');
    y := 0;
  End;
  sum := sum + (y * a[i]);
  xn := xn + h;
  writeln('y', i, '=', y : 3:2);
End;
  writeln('sum=', sum : 3:2);
  End..