Даны два целых числа м и к. если они оба неотрицательны, то умножить их на 10. если неотрицательно одно из них, то умножить их на 100. если они оба отрицательны и не относятся к диапазону от -7 до -3, то умножить их на 1000, в остальных случаях умножить их на 10000. программа в паскале.
Внимание! Если программа не работает, обновите версию!
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.