program phuongt; uses crt; var a, b : integer; op: text; begin clrscr; assign(op, 'D:\tong2so.txt'); rewrite(op); write(' a = '); readln(a); writeln(' b = '); readln(b); writeln(op, ' a = ', a); writeln(op, ' b = ', b); writeln(op, ' a + b = ', a+b); write('Mo file de xem ket qua'); close(op); readln end.
