Viết phương trình nhập vào 2 số nguyên khác nhau ,đưa ra số lớn hơn

Viết phương trình nhập vào 2 số nguyên khác nhau ,đưa ra số lớn hơn là :

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a=b then writeln('vui long nhap hai so khac nhau')

else if a>b then writeln('so lon nhat la: ',a)

else writeln('so lon nhat la: ',b);

readln;

end.
ok bn nha , vote 5 sao ikkk

program btsydn;

uses crt;

var a, b: integer;

begin 

clrscr;

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

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

if a>b then write(a) else

if a<b then write(b) else

write('Khong so nao lon hon');

readln

end;