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

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

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку