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' .

program bai_giai;
var f,g:text;
    n,i,t,d:longint;
begin
    Assign(f,'SN.TXT');  reset(f);
    Assign(g,'TONG.TXT');  rewrite(g);
    t:=0; d:=0;
    for i:=1 to 20 do
        begin
            read(f,n);
            if n mod 2=0 then t:=t+n else d:=d+1;
        end;
    write(g,t,' ',d);
    close(f); close(g);
end.

uses crt;
var f1,f2:text;
    n,i,tong,dem:integer;
begin
 Assign(f1,'SN.TXT');
 reset(f1);
 Assign(f2,'TONG.TXT');
 rewrite(g);
 tong:=0; dem:=0;
 for i:=1 to 20 do
  begin
   read(f1,n);
   if n mod 2=0 then tong:=tong+n;
   if n mod 2=1 then dem:=dem+1;
  end;
 write(f2,tong,' ',dem);
 close(g);
end.