Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.