Составьте программу, которая формирует массив из 40 случайных целых чисели от 0 до 20 и вычисляет сумму чисел не превышающих 10

Вот на паскале

var i,s:integer;a:array[1..40] of integer;beginfor i:=1 to 40 dobegina[i]:=random(20);write(a[i]:3);if a[i]lt;10 then s+=a[i];end;writeln();writeln(----------------------------------------);write(Сумма элементов не превыщающих 10 gt;gt;gt; ,s);end.