Question

Дано целое число Если оно положительное то отнять от него 8, если отрицательное то добавить к нему 6, если нулевое, то заменить его на 10. Вывести результат на экран.
Нужно Паскаль, на завтра. ДАМ 10 балов.​

Answer 1

##   // PascalАВС.NЕТ 3.9

var n := ReadInteger;

if n > 0 then n -= 8

else if n < 0 then n += 6

else n := 10;

Print(n)