program task;
 
{$APPTYPE CONSOLE} 
 
var
  x: array [1..15] of Integer; // ваш массив
  i: Integer; // счётчик
  s: Integer; // требуемая сумма
 
begin
  s := 0; // сумма обнуляется
  for i := 1 to 15 do begin // 15 элементов
    Write('x[', i, '] = '); // запрос на ввод данных
    Readln(x[i]); // читаем
    // если положительное и меньше десяти, то прибавляем к S
    if (x[i] > 0) and (x[i] < 10) then s := s + x[i];
  end;
  Writeln(s); // вывод суммы
  Readln;
end.