PROGRAM DOMINUX;
USES CRT;
VAR A, B: INTEGER;
BEGIN
CLRSCR;
WRITELN('Moi nhap A'); READLN(A);
WRITELN('Moi nhap B'); READLN(B);
IF A>B THEN WRITELN('Hai so nay co thu tu la ',A,' va ',B); ELSE
WRITELN('Hai so nay co thu tu la ',B,' va ',A):
READLN;
END.