program thu_tuc;

uses crt;

var a,b:integer;

{---Thu-tuc-hoan-doi---}

procedure hoandoi(a,b:integer);

var tg:integer;

begin

       tg:=a;

       a:=b;

       b:=tg;

       writeln('a= ',a,' b= ',b);

end;

{---Thu-tuc-kiem-tra---}

program lonhon(a,b:integer);

begin

       if a=b then write('Hai so bang nhau')

       else if a>b then write('a lon hon')

              else write('b lon hon');

end;

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

       write('Nhap a: ');  readln(a);

       write('Nhap b: ');  readln(b);

       hoandoi(a,b);

       lonhon(a,b);

       readln;

end.

var a,b,r,max:longint;

begin

read(a,b);

r:=a;

a:=b;

b:=r;

max:=a;

if a<b then max:=b;

write(max);

end.