min 2 so

Viết chương trình nhập vào số nguyên A,B Đưa giá trị nhỏ số Input: Đọc từ tệp: Min.inp gồm số nguyên A,B Output: Ghi vào tệp Min.out giá trị lớn số Var A,B:Longint; Procedure DocDL; Var f:text; Begin Assign(f,’Min.inp’); Reset(f); Read(f, A, B); Close(f); End; Function Min1(c,d:longint):longint; Begin If c>d then Min1:=d else Min1:=c; End; Procedure GhiDL; Var G:text; Begin Assign(g,’Min.out’); Rewrite(g); Write(g,Min1(A,B)); Close(g); End; Begin DocDL; GhiDL; End