Вцелочисленной массиве a , состоящим из 10 элементов от -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 then s := s + a;end;writeln(s);end.