Ввести с клавиатуры два числа и вывести на экран минимальное

var a, b:longint;

begin

readln(a, b);

if a>b then writeln(b)

         else writeln(a);

end.