Question

Дана программа:

var i : byte;
a : array[1..10] of integer;

BEGIN
randomize;
for i:=1 to 10 do
begin
a[i]:=random(899)+100;
write(a[i]:4);
end;
writeln;
// Программа должна дописать в строку
// четные элементы массива,
// делящиеся на 3.
END.

Задание:

Доработайте программу таким образом, чтобы из исходного массива случайных целых чисел были отобраны четные делящиеся на 3.