В целочисленной массиве а , состоящим из десяти элементов от -20 до 20, найти сумму положительных, нечетных элементов кратных 3, с помощью рандома

var s, a, t: integer;begins := 0;randomize;for t := 1 to 10 dobegina := random(41)  - 20;if (a mod 3 = 0) and (a mod 2 = 1) then s := s + a;end;writeln(s);end.