program prog_12(input, output); var x, y, min: integer; begin write('Enter x: '); readln(x); write('Enter y: '); readln(y); if x < y then min := x else min := y; write(x); if x > y then write(' > ') else write(' <= '); writeln(y); writeln(min, ' is the smaller number.') end.