Даны два числа. Вывести порядковый номер меньшего из них.

var a,b:integer;beginWriteln('Введите два числа через пробел');Read(a,b);If a<b then write('1') else write('2');End.