Bài 1:
const fi='bai1.inp'
var f1:text;
i:integer;
begin
assign(f1,fi); rewrite(f1);
for i:=1 to 4 do
write(f1,i:4);
writeln(f1);
writeln(f1,'Toi yeu Viet Nam');
close(f1);
end.
Bài 2:
const fi='bai1.inp'
var f1:text;
i:integer;
a:array[1..4]of integer;
st:string;
begin
assign(f1,fi); reset(f1);
for i:=1 to 4 do
read(f1,a[i]);
readln(f1);
readln(f1,st);
close(f1);
end.