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

write (a[i], ' ') ; end;

end.