Даны два целых числа М и К. Если они оба неотрицательны, то умножить их на 10. Если неотрицательно одно из них, то умножить их на 100. Если они оба отрицательны и не относятся к диапазону от -7 до -3, то умножить их на 1000, в остальных случаях умножить их на 10000. Программа в паскале.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b):=ReadInteger2('Введите два числа через пробел:');  if (a>=0) and (b>=0) then (a,b):=(a*10,b*10)  else    if (a>=0) xor (b>=0) then (a,b):=(a*100,b*100)    else      if (a<0) and (b<0) and not a.Between(-7,-3) and          not b.Between(-7,-3-1) then (a,b):=(a*1000,b*1000)      else (a,b):=(a*10000,b*10000);  Println(a,b)end.