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

Question

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

Answer 1

Program a_1;
Var a,b : real;
begin
writeln('Введите 2 числа');
read(a,b);
  if a > b then    
Writeln('Число: ' +a+ ' Порядковый номер: 1')   
else    Writeln('Число: ' +b+ ' Порядковый номер: 2');    
end.