Если это паскаль.
Program abc;
var a,b:integer;
Begin
write("Введите число a"," ");
readln(a);
write("Введите число b"," ");
readln(b);
if a>b then
writeln("Число"," ",b," ", "меньшее")
else
writeln("Число"," ",a," ","меньшее");
End.