в массиве...

в массиве А(20),диапазон: [-10 ; 30] посчитать количество элементов кратных 3 и каждый элемент увеличить на это количество.
Помоги, пожалуйста!)

 

Program Pr1;
uses crt;
var mas:array[1..20] of integer;
i,a:integer;
Begin
clrscr;
a:=0;
randomize;
for i:=1 to 20 do begin
mas:=-10+random(41);
write(mas,' ');
end;
for i:=1 to 20 do if mas mod 3=0 then a:=a+1;
for i:=1 to 20 do if mas mod 3=0 then mas:=mas+a;
writeln();
for i:=1 to 20 do write(mas,' ');
end.