Nhập vào một xâu,hãy kiểm tra xâu nếu xâu có xuất hiện các kí tự số chẵn nhiều hơn các kí tự số lẻ thì in ra là xâu chẵn

program xau_chan_l;

uses crt;

var s,sc,sl:string;

      i,so:byte;

begin

      clrscr;

      write(‘Nhap xau: ‘);  readln(s);

      sc:=0;  sl:=0;

      for i:=1 to length(s) do

            begin

                  val(s[i],so);

                  if so mod 2=0 then sc:=sc+s[i] else sl:=sl+s[i];

            end;

      if length(sc)>=length(sl) then write(sc) else write(sl);

      readln;

end.