Viết ct đọc dữ liệu từ tệp bt1.txt ( gồm các số nguyên mỗi số cách nhau 1 kí tự trống ). Đém các số nguyên là số lẻ và ghi kết quả vào tệp mới có tên là kq1.txt

program  ct;
var s,y:text;
a,i:integer;
begin
assign(s,'D:/bt1.txt');
assign(y,'D:/kq1.txt');
reset(s);
read (s,a);
rewrite(y);
d:=0;
if a mod 2<>0 then d:=d+1;

write(y,d)
close (y);
close (s);
end.

program bai_giai;
var f,g:text;
    n,d:longint;
begin
    Assign(f,'bt1.txt');  reset(f);
    Assign(g,'kq1.txt');  rewrite(g);
    d:=0;
    while not eof(f) do
        begin
            read(f,n);
            if n mod 2=1 then d:=d+1;
        end;
    write(g,d);
    close(f); close(g);
end.