program Bai;

uses crt;

 var A:array[1..100] of integer;

       i,n,s1,s2,s: integer;

begin 

 write('Nhap n phan tu:'); readln(n);

s1:=0;

s2:=0;

s:=0;

  for i:=1 to n do 

     begin 

        write('A[',i,']=');

         readln(A[i]);

      end;

for i:=1 to n then 

 begin 

if A[i] mod 2=0 then s1:=s1+n;

if A[i] mod 2<>0 then s2:=s2+n;

s:=s1+s2;

end;

 writeln('Tong cac so nguyen chan la:',s1);

writeln('Tong cac so nguyen le la:',s2);

writeln('Tong gia tri day la',s);

readln 

end.