{* Задача 527 *}

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

');
End.

Program zadach527;

Uses zadach527.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  a   : Array[1..4] 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 4 Do {* Переменная i увеличивается с 1 до 4 *}
  Begin
    writeln('Введите a', i);
    readln(a[i])
  End;
  For i := 1 To 4 Do {* Цикл для i => [1 .. 4] *}
  Begin
    Решение     y := sqrt(exp(xn * ln(2)) * sin(2 * xn) - exp( - sin(xn))) / (sqrt(exp(xn * ln(2)) + exp(xn * ln(3))) * sin(2 * xn));
    sum := sum + (y * a[i]);
    xn := xn + h;
    writeln('y', i, '=', y : 3:2);
  End;
  writeln('sum=', sum : 3:2);
End.