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

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

var

 a, b: Integer;

begin  

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

   readln(a, b);

   if a gt; b then

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

   else if a lt; b then

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

   else

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

end;

var a, b : integer;

begin

readln(a, b);

if a gt; b then

writeln(b)

else  

writeln(a);

end.