program DemVaTinhTongSoChiaHetCho5;
var
  n, i, soLuong, tong: integer;
  arr: array of integer;
begin
  writeln('Nhap vao so luong phan tu: ');
  readln(n);
  
  // Khởi tạo mảng với kích thước n
  SetLength(arr, n);
  
  writeln('Nhap vao cac phan tu cua day: ');
  for i := 0 to n - 1 do
  begin
    readln(arr[i]);
  end;
  
  soLuong := 0;
  tong := 0;
  
  for i := 0 to n - 1 do
  begin
    if arr[i] mod 5 = 0 then
    begin
      soLuong := soLuong + 1;
      tong := tong + arr[i];
    end;
  end;
  
  writeln('So luong so chia het cho 5: ', soLuong);
  writeln('Tong cac so chia het cho 5: ', tong);
  
  readln;
end.