program abc;

uses crt;

var 

e: array[1..100] of real;

d;n;a;i: integer;

begin

a:=0;

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

for i:=1 to n do;

      begin

       writeln('Nhap so thu',i);            readln( e[i] );

end;

for i:=1 to n do;

      begin

if e[i] mod 6=0 then a:=a+1;

end;

for i:=1 to n do;

      begin

if e[i] <0 and e[i] mod 7=0 then d:=d+e[i]

writeln('cac  so chan chia het cho 3la: ',a);

writeln('tong cac so am chia het cho 7 la ',d)

readln;

end.

uses crt;
var a:array[1..1000000] of longint;
        n,i,d,s:longint;
begin
        clrscr;
        write('Nhap so luong phan tu: '); readln(n);
        for i:=1 to n do 
                begin
                        write('Nhap gia tri phan tu thu ',i,': '); readln(a[i]);
                        if (a[i] mod 6=0) then inc(d);
                        if (a[i]<0) and (a[i] mod 7=0) then inc(s,a[i]);
                end;
        writeln('Co ',d,' phan tu la so chan va chia het cho 3');
        writeln('Tong cac so am chia het cho 7: ',s);
        readln;
end.