Даны 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.