program znanija;
Var
    a, res: array of integer;
    x, N, i, k: integer;
begin
    readln(N);
    SetLength(a,N);
    SetLength(res,N);
    
    for i := 0 to N - 1 do
        readln(a[i]);
        
    k := 0;
    for i := 0 to N - 1 do
           if a[i] mod 3 = 0 then
           begin
               res[k] := a[i];
               k := k + 1;
           end;
    for i := 0 to k - 1 do
        writeln(res[i]);
     
end.

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
  var b:=a.Where(t->t mod 3=0).ToArray; b.Println
end.