uses crt;

var n,i,t,d:longINT;

      tbc:real;

      a:array[1..1000000000] of integer;

      f,g:text;

function ktnt(x:Longint):boolean;

 var j:longint;

       kt:boolean;

 begin 

   kt:=true;

   for j:=2 to round(sqrt(x)) do if i mod x=0 then

      begin

        kt:=false;

        break;

      end;

  ktnt:=kt;

 end;

procedure docso;

  begin

    i:=1;

    write('Nhap a[',i,']=');readln(a[1]);

    if ktnt(a[1])=true then exit;

    while ktnt(a[i])<>true do

       begin 

          inc(i);

          write('Nhap a[',i,']=');readln(a[i]);

       end;

  end;

procedure ttvtbc;

 begin

   n:=i;

   t:=0;

   for i:=1 to n do if a[i] mod 2 =0 then t:=t+a[i];

   tbc:=0;

    d:=0;

   for i:=1 to n do if a[i] mod 2=1 then 

     begin

       inc(d);

       tbc:=tbc+a[i];

     end;

   tbc:=tbc/d;

 end;

procedure xuatfile;

  begin

    assign(g,'xuat.out');rewrite(g);

    writeln(g,'Tong cac so chan: ',t);

    writeln(g,'Tbc cac so le: ',tbc);

    close(g);

  end;

begin

 docso;

 ttvtbc;

 xuatfile;

end.