Question

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

Answer 1

program z1;
   var a,b:longint;
begin
   read(a,b);
   if a<b then write(1) else write(2);
end.