Увеличить число x на 10, если оно положительное, во всех остальных случаях уменьшить его на 10

Составим программу увеличения числа, если оно положительное и его уменьшении, если оно отрицательное:

Program 1;

Var x: integer;

begin

writeln ('введите любое целое число ');

readln (x);

if x > o then

x: = x + 10;

writeln ('Начальное число увеличилось на 10 и = ', x);

else

x: = x - 10;

writeln ('Начальное число уменьшилось на 10 и = ', x);

end.

Проверим работу программы последовательно пройдясь по коду:

Вводим с клавиатуры любое целое число:

1) x = 100;

Переходим к сравнению:

100 > 0 (x > 0),

значит:

x = x + 10 = 100 + 10 = 110.

На экран выводится:

Начальное число увеличилось на 10 и = 110;

2) x = - 5;

Переходим к сравнению:

-5 < 0 (x < 0),

значит:

x = x - 10 = - 5 - 10 = - 15.

На экран выводится:

Начальное число уменьшилось на 10 и = - 15;