program SumPositiveLessThanTen;

const
n = 10;

var
arr: array[1..n] of integer;
i, sum: integer;

begin
randomize;

sum := 0;

// Заполнение массива случайными числами
for i := 1 to n do
begin
arr[i] := random(201) - 100;

// Проверка на положительное число меньше 10
if (arr[i] > 0) and (arr[i] < 10) then
sum := sum + arr[i];

end;

// Вывод исходного массива
writeln('Массив:');
for i := 1 to n do
write(arr[i], ' ');

// Вывод суммы положительных элементов, значения которых меньше 10
writeln;
writeln('Сумма положительных элементов, значения которых меньше 10: ', sum);

end.