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

program b1;var m:array[1..40]of integer;i:integer;s:integer;beginfor i:=1 to 40 dobegin  m[i]:=random(21); begin if m[i]<=10 then s:=s+m[i]; end; end;  writeln('massiv='); for i:=1 to 40 do   write(m[i]:4);  writeln('Сумма чисел не превышающих 10=',s);readln;end.