Вывести все элементы массива кратные 3, помогите пожалуйста с кодом 

Код на паскале? var i:integer; a:array[1..15] of integer; begin randomize; for i:=1 to 15 do begin a[i]:=random(20)+1; if a[i] mod 3=0 then writeln(a[i]); end; readln; end.

Паскаль АВС Program  GreatWhite; const   n=50; var   mass: array [1..n] of integer;   i: integer; begin   writeln('*** Alphaeus is thinking... ***');   writeln('***          OK             ***');   writeln('Среди элементов массива программа находит числа, кратные 3');   writeln('*** Вычисляю... ***');   randomize;   for i:=1 to n do begin     mass[i]:=random(100)-50;     if mass[i] mod 3=0 then writeln(mass[i]);   end; end.