Введите 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.
Оцени ответ
