Viết chương trình đọc từ tệp DL.txt 3 số a,b,c. Tìm giá trị nhỏ nhất trong 3 số, sau đó ghi kết quả ra tệp KQ.txt.
Mn làm giúp mk với ạ mk đang cần gấp ạ mk cảm ơn mn
uses crt; var d:text; a,b,c,min:longint; begin clrscr; assign(d,'DL.txt');reset(d); readln(d,a,b,c); min:=a; if min>b then min:=b; if min>c then min:=c; writeln('Min: ',min); close(d); readln end.