uses crt;
var a,b: integer;
begin
 clrscr;
  write ('nhap a: ');  readln (a);
  write ('nhap b: ');  readln (b);
  if a>b then
   begin
    writeln (a,' lon hon ',b);
    writeln (b,' nho hon ',b);
   end;
  if a<b then
   begin
    writeln (b,' lon hon ',a);
    writeln (a,' nho hon ',b);
   end;
 readln;
end.

đảm bảo không bao giờ sai

꧁༺𝒄𝒉𝒖́𝒄 𝒃𝒂̣𝒏 𝒉𝒐̣𝒄 𝒕𝒐̂́𝒕✔

๖ۣۜc̲̅a̲̅o̲̅ t̲̅h̲̅ủ p̲̅a̲̅s̲̅c̲̅a̲̅l̲̅ッ

program ctpt;

uses crt;

   var a, b: integer;

begin

        clrscr;

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

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

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

                write('So nguyen a va b phai khac nhau, ban nhap sai!');

        readln

end.