Bai 3:
uses crt;
var d:text;
begin
clrscr;
assign(d,'BT3.txt');rewrite(d);
writeln(d,'2 8 7 8 10 9');
close(d);
readln
end.
Bai 4:
uses crt;
var d:text; a,b:longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,a,b);
writeln('a+b= ',a+b);
close(d);
readln
end.