10 в -16 степени потому что в 1 см 10 миллиметров
Var n:integer;
begin
readln(n);
if n > 0 then n:=n-8
else if n < 0 then n:=n+6
else n:=10;
writeln(n);
end.
Пример:
-5
1
Отдельные свойства объектов окружающего мира вызывают у нас ощущения.
Подробное решение во вложении