Cho tệp 'SN.TXT' chứa 20 số nguyên, mỗi số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng. Viết chương trình tính tổng các số nguyên chẵn trong tệp, đếm xem có bao nhiêu số nguyên lẻ. Ghi kết quả ra tệp 'TONG.TXT' .

const fi='SN.TXT';
    fo='TONG.TXT';
var i,s,d:longint;
    a:array[1..20]of longint;
begin
    assign(input,fi);reset(input);
    assign(output,fo);rewrite(output);
        for i:=1 to 20 do
            begin
                read(a[i]);
                if a[i] mod 2=0 then inc(s,a[i]) else inc(d);
            end;
        writeln(s);
        write(d);
    close(input);
    close(output);
end.

uses crt;
var f:text; i,c,l:longint; a:array[1..20]of longint;
begin
clrscr;
   assign(f,'SN.TXT');reset(f);
      for i:=1 to 20 do 
         begin
            read(f,a[i]);
            if a[i] mod 2=0 then inc(c) else inc(l);
         end;
   close(f);
   assign(f,'TONG.TXT');rewrite(f);
      writeln(c,' ',l);
   close(f); 
end.