Cho 1 tệp chứa 1 dãy số nguyên cách nhau bởi dấu cách. Viết chương trình đọc dữ liệu từ tệp. a) hiển thị ra màn hình tổng các số lẻ trong tệp b) đếm xem trong tệp có bao nhiêu số chia hết cho 3

uses crt;
var f:text; i,n,s,d:longint;
a:array[1..100000]of longint;
begin
clrscr;
   assign(f,'input.pas');reset(f);
      readln(f,n);
      for i:=1 to n do 
         begin
            read(f,a[i]);
            if a[i] mod 2=1 then inc(s,a[i]);
            if a[i] mod 3=0 then inc(d);
         end;
   close(f);
   assign(f,'output.pas');rewrite(f);
      writeln(f,'a) ',s);
      writeln(f,'b) ',d);
   close(f); 
end.

uses crt;
var f:text;
    a:array[1..1000]of word;
    n,i,sum,count:word;
begin
clrscr;
    assign(f,'tep.txt');reset(f);
        readln(f,n);
        for i:=1 to n do
            begin
                read(f,a[i]);
                if a[i] mod 2=1 then inc(sum,a[i]);
                if a[i] mod 3=0 then inc(count);
            end;
    close(f);
    writeln(sum);
    write(count);
readln;
end.