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

Вот на паскале 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]<10 then s+=a[i];end;writeln('');writeln('----------------------------------------');write('Сумма элементов не превыщающих 10 >>> ',s);end.