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.
