var     A:array[1..100] of integer; {la kieu integer vi sau co xet tinh chia het}
         i,n:byte;tong,k,d:integer;
begin
     repeat  {Phan nhap mang}
     write('Nhap so phan tu cua mang: ');readln(n);
     writeln('Nhap cac phan tu cua mang: ');
     for i:=1 to n do 
      write(' A[,i,']= ');readln(A[i]); 
     until n<101;
     tong:=0;    {Phan tinh tong cac phan tu}
     for i:=1 to n do
              tong:=tong+A[i];
     write('Tong cac phan tu cua mang: ',tong: 6:2);
     write('Nhap vap so k: ');readln(k); {xet tinh chia het cua cac phan tu}
     d:=0; {Them vào cho vui thoi}       
     writeln('Nhung phan tu chia het cho ',k,' la: ');
     for i:=1 to n do 
          if (A[i] mod k =0) then begin write(' A[',i,']= ',A[i]:4:2);d:=d+1; end;
     if d>0 then writeln('Co ',d,' phan tu cua mảng chia het cho ',k)
         else writeln('Khong co phan tu nao cua mang chia het cho ',k);
     readln
end.