Составьте программу, которая...

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

 

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