{sử dụng mảng}

program ct;

uses crt;

var a:array[1..10000] of integer;

n,i:integer;

begin

clrscr;

write('nhap n : ');

readln(n);

for i:=1 to n do begin

                  write('nhap a[',i,'] : ');

                  readln(a[i]);

end;

{chia hết cho 2}

write('cac so chia het cho 2 la : ');

for i:=1 to n do if a[i] mod 2  = 0 then write(a[i]:5);

{chia hết cho 3}

write('cac so chia het cho 3 la : ');

for i:=1 to n do if a[i] mod 3 = 0 then write(a[i]:5);

{chia het cho 5}

write('cac so chia het cho 5 la : ');

for i:=1 to n do if a[i] mod 5 = 0 then write(a[i]:5);

readln;

end.

Program qtruong;
Uses crt;
Var i, n:integer;
      D:array[1..100000] of longint;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
Begin
      Write('D[',i,']='); 

      Readln(D[i]);

End;
For i:=1 to n do if D[i] mod 2 = 0 then writeln('Cac so chia het cho 2 la: ',D[i]);
For i:=1 to n do if D[i] mod 3 = 0 then writeln('Cac so chia het cho 3 la: ',D[i]);
For i:=1 to n do if D[i] mod 5 = 0 then writeln('Cac so chia het cho 5 la: ',D[i]);
Readln
End.