Вывести на экран все натуральные числа делящиеся на 3 без остатка

Var mas : array [1..100000] of longint;
i,n : longint;

begin
 read(n);
 for i:=1 to n do begin
  read mas[i];
 end.
 for i:=1 to n do begin
    if mas[i] mod 3=0 then write (mas[i],' ');
 end;
end.