Программа, которая выводит числа, которые делятся на 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.