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.
clrscr; write('Cac so chan trong tep: '); assign(input,'DATA.TXT'); reset(input); while not eoln(input) do begin write('Nhap: '); readln(n); if n mod 2=0 then write(n,' '); end; readln end.
