program Bai; var a:array [1..100] of integer; n, i: integer; begin write('Nhap so phan tu co trong mang: '); readln(n); for i:=1 to n do begin write('Nhap vao phan tu thu A[',i,']: '); readln(A[i]); end; for i:=1 to n do if a[i] mod 4 = 0 then writeln(a[i]); readln end.
