Дан одномерный массив. найти сумму чисел меньше 8

Const

n = 16;

var

a: array[1 ... n] of integer;

i, s: integer;

begin

Randomize;

Writeln ('Элементы массива') ;

s : = 0;

for i : = 1 to n do

begin

a[i] : = Random (20) ;

Write (a[i]:3) ;

if a[i]<8 then s:=s+a[i]

end;

Writeln;

Writeln ('Сумма элементов, меньших 8, равна ', s)

end.

Тестовое решение:

Элементы массива

8 5 12 10 4 7 11 18 13 17 18 2 5 1 3 16

Сумма элементов, меньших 8, равна 27