Даны два целых числа м и к. если они оба неотрицательны, то умножить их на 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.