uses crt;

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

i, n, dem : integer;

begin

clrscr;

dem := 0;

write('nhap so phan tu trong mang :');readln(n);

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if a[i] mod 4 = 0 then dem := dem + 1;

end;

writeln('co ', dem ,' phan tu chia het cho 4');

readln

end.

program mang;
uses crt;
var a:array [1..100] of integer;
    n,i,d:integer;
Begin
    clrscr;
    write('n = ');readln(n);
    while n>=100 do
    begin
        write('Nhap lai n: ');readln(n);
    end;
    for i:=1 to n do
        begin
            write('A[',i,'] = ');readln(A[i]);
            if A[i] mod 4=0 then d:=d+1;
        end;
    write('Co ',d,' so chia het cho 4');
    readln
End.