bài 1:

uses crt;

var f:text;

       a,b:integer;

begin

clrscr;

write('Nhap a: ');   readln(a);

write('Nhap b: ');   readln(b);

Assign(f,'baitap.txt');   rewrite(f);

write(f,'Hai so vua nhap la: ',a,' ',b);

close(f);

end.

Bài 2:

uses crt;

var f:text;

       a,b:integer;

begin

Assign(f,'baitap.txt');   reset(f);

readln(f,a,b);

write('Hai so lay tu tep la: ',a,' va ',b);

close(f);

readln

end.

Câu 1:

uses crt;

var a,b:integer;

    f:text;

BEGIN

        clrscr;

        assign(f,'baitap.txt');

        rewrite(f);

        write('Nhap a:'); readln(a);

        write('Nhap b:'); readln(b);

        write(f,a,' ',b);

        close(f);

        readln

END.

Câu 2:

uses crt;

var a,b:integer;

    f:text;

BEGIN

        clrscr;

        assign(f,'baitap.txt');

        reset(f);

        readln(f,a,b);

        write(a,' ',b);

        close(f);

        readln

END.

Xin ctlhn.