program Vd;
uses crt;
var  a: array[1..100] of integer;
      n,i,d1,d2,am,duong: integer;
begin
          clrscr;
         
          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 (a[i] > 0) and (a[i] mod 3 = 0) then
             
                    begin
                   
                        d1:=d1+1;
                       
                        duong:=duong+a[i];
                       
                    end else
                       
              If (a[i] < 0) and (a[i] mod 5 = 0) then
                     begin
                    
                         d2:=d2+1;
                        
                         am:=am+a[i];
                        
                     end;
                    
      writeln('So so nguyen duong chia het cho 3: ',d1);
          
      If duong <> 0 then writeln('Tong so nguyen duong chia het cho 3: ',duong);
          
      writeln('So so nguyen am chia het cho 5: ',d2);
          
      If am <> 0 then writeln('Tong so nguyen am chia het cho 5: ',am);
                 
  readln;
end.