var     a:array[1..1000] of longint;
        n,i,s:longint;
function tongchuso(n:longint):longint;
        var     s:longint;
        begin
                while n<>0 do
                begin
                        s:=s+n mod 10;
                        n:=n div 10;
                end;
                exit(s);
        end;
begin
        write('Nhap n:');
        readln(n);
        for i:=1 to n do
        begin
                write('a[',i,']=');
                readln(a[i]);
        end;
        for i:=1 to n do
        if tongchuso(a[i]) mod 4=0 then
        s:=s+a[i];
        write('Tong cac so co tong chu so chia het cho 4 la:',s);
        readln;
end.

program Tin_hoc;

uses crt;

var n,i,tong:integer;

      a: array [1..1000000] of integer;

begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' so:');

tong:=0;

for i:=1 to n do

begin

  write('a[',i,'] = ');

  readln(a[i]);

  if a[i] mod 4 = 0 then tong:= tong + a[i]

end;

writeln('Tong cac chu so chia het cho 4 trong ',n,' so vua nhap la: ',tong);

readln;

end.