program pr;

var mas:array[1..40] of integer;

i, sum:integer;

begin

randomize;

for i:=1 to 40 do mas[i]:=random(20);

for i:=1 to 40 do if mas[i]<=10 then sum:=sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

Программу проверил все работает