Viết chương trình đọc dữ liệu từ tệp DATA.TXT chia các số nguyên. Tìm các số chia hết cho 3 và ghi vào tệp KETQUA.TXT

uses crt;

var n:integer;

    fi,fo:text;

BEGIN

        clrscr;

        assign(fi,'Data.txt');

        assign(fo,'Ketqua.txt');

        {$I-} reset(fi); {$I+}

        if ioresult<>0 then

        begin

                rewrite(fi);

                reset(fi);

        end;

        rewrite(fo);

        while not eof(fi) do

        begin

                read(fi,n);

                if n mod 3=0 then writeln(fo,n);

        end;

        close(fo); close(fi);

END.

Tệp vào là các số nguyên trên cùng 1 dòng nha.

Chúc bạn học tốt!