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.