Программа, которая выводит числа, которые делятся на 3 но не делятся на 6

Это в том случае, когда нужно, чтобы компьютер сам выдавал рандомные числа:

var
a:array [1..100] of integer;
i: integer;
begin
for i:=1 to 100 do    begin
a[i]:=random (100)-50;
if (a[i] mod 3=0)and(a[i] mod 6<>0) then 
write(a[i]);     end;
end.

если же есть определенный ряд чисел, то программа будет выглядеть вот так:

var
a:array [1..100] of integer;
i, n: integer;
begin
read(n); - здесь вводим кол-во чисел.
for i:=1 to n do    begin
read(a[i]); - вводим числа с клавиатуры.
if (a[i] mod 3=0)and(a[i] mod 6<>0) then 
write(a[i], ' ');     end;
end.