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

это в том случае, когда нужно, чтобы компьютер сам выдавал рандомные числа:vara:array [1..100] of integer;i: integer;beginfor i:=1 to 100 do    begina[i]:=random (100)-50;if (a[i] mod 3=0)and(a[i] mod 6<>0) then write(a[i]);     end;end.если же есть определенный ряд чисел, то программа будет выглядеть вот так:vara:array [1..100] of integer;i, n: integer;beginread(n); - здесь вводим кол-во чисел.for i:=1 to n do    beginread(a[i]); - вводим числа с клавиатуры.if (a[i] mod 3=0)and(a[i] mod 6<>0) then write(a[i], ' ');     end;end.