Даны два целых числа М и К (Integer для ABC Pascal). Если они оба неотрицательны, то...

Question

Даны два целых числа М и К (Integer для ABC Pascal). Если они оба неотрицательны, то умножить их на 10. Если неотрицательно одно из них, то умножить их на 100. Если они оба отрицательны, то умножить их на 1000.
Пример: 8,7 результат 80,70
-2,3 результат-200,300

Answer 1

Program n_1;
var m,k: integer;
begin
if (m>0) and (k>0) then
begin
m:=m*10;
k:=k*10;
end;
if ((m>0) and (k<0)) or ((m<0) and (k>0) then
begin
m:=m*100;
k:=k*100;
end;
if (m<0) and (k<0) then<br>begin
m:=m*1000;
k:=k*1000;
end;
writeln(m);
writeln(k);
end.