pascal: tạo tệp SONGUYEN.DAT gồm N số nguyên

program tao_tep;

uses crt;

var f:text;

      n,i,k:integer;

begin

       clrscr;

       Assign(f,’SONGUYEN.DAT’);  rewrite(f);

       write(‘Nhap N: ‘);  readln(n);

       for i:=1 to n do

              begin

                     write(‘Nhap so thu ‘,i,’: ‘);   readln(k);

                     write(f,k,’ ‘);

              end;

       close(f);

end.