Bai 1:
uses crt;
var f:text;
begin
clrscr;
assign(f,'D:\bai1.inp');reset(f);
writeln(f,'1 2 3 4');
writeln(f,'Toi yeu Viet Nam');
close(f);
readln
end.
Bai 2:
uses crt;
var f:text; s:string;
begin
clrscr;
assign(f,'D:\bai1.inp');rewrite(f);
readln(f,s);
writeln(s);
readln(f,s);
writeln(s);
close(f);
readln
end.