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

var a, b : integer;

begin

readln(a, b);

if a > b then

writeln(b)

else  

writeln(a);

end.

// было бы неплохо предусмотреть случай, когда введены два одинаковых числа:

var

 a, b: Integer;

begin  

   write('Введите два целых числа: ');

   readln(a, b);

   if a > b then

     writeln('Меньшее число = ' + IntToStr (b))

   else if a < b then

     writeln('Меньшее число = ' + IntToStr (a))

   else

     writeln('Числа равны.');

end;