uses crt; var f: text; t,k,s,a,a1,b,b1,c,c1,d:longint; begin clrscr; assign(f,'d:\hoangchau\tienthua.inp'); reset(f); read(f,t); read(f,k); close(f); assign(f,'d:\hoangchau\tienthua.out'); rewrite(f); s:= k-t; writeln(f,'Tra lai:',s); a:= s div 5000; a1:= s-(a*5000); b:=a1 div 2000; b1:=a1-(b*2000); c:=b1 div 1000; c1:= b1-(c*1000); d:=c1 div 500; writeln(f,'so to 5000:',a,'to'); writeln(f,'so to 2000:',b,'to'); writeln(f,'so to 1000:',c,'to'); writeln(f,'so to 500:',d,'to'); close(f); readln; end.sữa bộ text ni mình với