Составьте программу ,которая заполняет массив а [1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы ,значения которых являются четными и кратными 3.

Не знаю сойдет или нет, но как бы эту задачу давно решал.

var a:array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do 
begin
a[i]:=random(30)+1;
if a[i] mod  3  = 0 then
write (a[i],' ');
end;
readln;
end.