Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. Выведите в строку эти элементы. Найдите сумму элементов массива, значения которых не превышает 10

var    i,s:integer;   a:array[1..15] of integer;beginrandomize;for i:=1 to 15 do   begin  a[i]:=random(21);   write(a[i],' ');   if a[i]<=10 then s:=s+a[i]   end;writeln('Сумма ',s)end.