даны 2 числа создать прогармму котрое выводит меньшее из них

Если это паскаль.

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.