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;