{* Задача 351 *}

Unit ZADACH351;
Interface
Implementation
Begin
 writeln('Вычислить сумму элементов последовательности (n≤20), удовлетворяющих неравенству x>p.');
End.

Program zadach351;

Uses zadach351.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  nmax = 20;
Type {* Создание новых типов данных *}
  ind = 1..nmax;
  vec = Array[ind] Of real;
Var {* Необходимые переменные *}
  x : vec;
  i : ind;
  n : ind;
  s : real;
  p : real;
Begin
  write('Введите n и p ');
  readln(n);
  readln(p);
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    write('x[', i : 2, ']=');
    readln(x[i]);
  End;
  s := 0;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    If x[i] > p Then
      s := s + x[i];
  End;
  writeln('Сумма =', s : 7:3);
End.