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

Там ж порядковый номер просят

и?

ну дак ве впорядке

все

ну дак я переделал еще до того как ты ответил

ну когда ты писал я переделал

ок

завтра олимпиада по инфе а я хернёй страдаю

пошол искать нормальные задачи

program qq;var a,b:integer;begin  writeln('Введите два числа');  readln(a,b);  if a=b  then writeln('Числа равны')  else if a<b         then writeln(1)         else writeln(2);end.

program p1;var a,b:integer;begin  writeln('Введите два числа');readln(a,b);if a=bthen writeln('Числа равны')else if a<bthen writeln(1)else writeln(2);end.