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

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