program ArraySum;

const
N = 10; // длина массива
A = 15; // число A

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

begin
// заполняем массив случайными числами
Randomize;
for i := 1 to N do
arr[i] := RandomRange(-30, 40);

// выводим массив на экран
writeln('Массив:');
for i := 1 to N do
write(arr[i], ' ');
writeln;

// запрашиваем число A
write('Введите число A: ');
readln(numA);

// находим сумму элементов массива, больших числа A
sum := 0;
for i := 1 to N do
if arr[i] > numA then
sum := sum + arr[i];

writeln('Сумма элементов массива, больших числа A: ', sum);
end.