Để ghi một số nguyên chẵn vào trong 1 tệp thì câu lệnh phải như thế nào ạ?

để ghi 1 số vào tệp ta có công thức:

write(<tên tệp>,<số cần viết>);

ví dụ:

program nhapso;

uses crt;

var f:text;

      n:integer;

begin

clrscr;

write(‘Nhap so nguyen chan: ‘);   readln(n);

Assign(f,’KQ.TXT’);   rewrite(g);

write(f,n);

close(f);

end.