Lập chương trình tìm giá trị lớn nhất của 2 số nguyên M, N

program lonnhat;

uses crt;

var m,n:integer;

begin

clrscr;

write(‘Nhap M: ‘);   readln(m);

write(‘Nhap N: ‘);  readln(n);

if m>n then write(m,’ lon hon ‘,n)

   else if n>m then write(n,’ lon hon ‘,m)

       else write(m,’ bang ‘,n);

readln

end.