Cho tệp DATA.TXT chứa liên tiếp các số nguyên cách nhau bằng dấu cách và không kết thúc bằng kí tự xuống
dòng. Hãy lập trình tìm và in các số chẵn trong tệp DATA.TXT ra màn hình.
Ai làm hộ với, mình đang cần gấp
var n: integer; begin write('Ket qua: '); assign(input,'DATA.TXT'); reset(input); while not eoln(input) do begin read(n); if (n mod 2 = 0) then write(n, ' '); end; readln end.