Var a,b:integer;
Begin
Write('Nhap vao so nguyen thu nhat ');readln(a);
Write('Nhap vao so nguyen thu hai ');readln(b);
If a > b then write('So lon hon la ',a);
If a < b then write('So lon hon la ',b);
If a = b then write('Khong co so nao lon hon');
Readln;
End.