Bài 1:

program in_xau_tep;

uses crt;

var f:text;

      s:string;

begin

       clrscr;

       Assign(f,'XAU.UOP');  rewrite(f);

       write('Nhap xau: ');  readln(s);

       write(f,s);

       close(f);

end.

Bài 2:

program in_day_tep;

uses crt;

var f:text;

     A:array[1..1000] of integer;

     n,i:integer;

begin

       clrscr;

       Assign(f,'DAYSO.INP');  rewrite(f);

       write('Nhap so luong phan tu n: ');  readln(n);

       for i:=1 to n do

              begin

                     write('A[',i,']= ');  readln(A[i]);

                     write(f,A[i],' ');

              end;

       close(f);

end.

bài 1:

var f: text;

      s: string[50];

Begin

    Assign(f, 'xau.oup'); rewrite(f);

    Write('nhap xau: '); readln(s);

    Write(f, s); close(f);

End.

bài 2:

var f: text;

      A: array[1..250] of integer;

      i, n: byte;

Begin

     Assign(f, 'dayso.inp'); rewrite(f);

     Write('n = '); readln(n);

     For i:=1 to n do

         Begin

              Write('a[', i, '] = '); readln(a[i]);

              Write(f, a[i], ' ');

         End;

      Close(f);

End.