Cái này mik cũng mới học cũng ko bt đúng hay ko , nếu sai bạn thông cảm
program dz; ues crt; var a,b:longint; procedure sosanh; var min,max:longint; begin if a>b then begin max:=a;min:=b;end else begin max:=b;min:=a;end; writeln(' So lon hon la : ',max); write(' So ba hon la : ',min); end; BEGIN clrscr; write(' Nhap a, b : ');readln(a,b); sosanh; readln End.
uses crt; var a,b:longint; procedure kt(a,b:longint); var max,min:longint; begin max:=a; if b>max then max:=b; min:=a; if b<min then min:=b; writeln('Max: ',max); writeln('Min: ',min); end; begin clrscr; write('Nhap a,b: '); readln(a,b); kt(a,b); readln end.
