program TinhTongLeVaDemSoChan;
uses crt;

const
  MAX_P = 500;

var
  C: array[1..MAX_P] of Integer;
  P, i, TongLe, DemSoChan: Integer;

begin
  clrscr;
  
  // Nhập giá trị của P
  write('Nhap so phan tu cua mang P (P <= 500): ');
  readln(P);
  
  // Nhập giá trị của các phần tử trong mảng
  for i := 1 to P do
  begin
    write('Nhap phan tu thu ', i, ' cua mang: ');
    readln(C[i]);
  end;
  
  // Tính tổng các số lẻ và đếm số chẵn
  TongLe := 0;
  DemSoChan := 0;
  for i := 1 to P do
  begin
    if (C[i] mod 2 = 1) then
      TongLe := TongLe + C[i]
    else
      DemSoChan := DemSoChan + 1;
  end;
  
  // Đưa ra kết quả
  writeln('Tong cac so le trong mang: ', TongLe);
  writeln('So luong cac so chan trong mang: ', DemSoChan);
  
  readln;
end.