Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательное, то вычесть 2, если нулевым, то заменить его на 10. вывести полученное число. программа.

program zz1;

var a, b : integer; / / задаем переменные целого типа

begin

write (' введите трехзначное число '); / / вводим с клавиатуры трехзначное число

read (a);

if a > 0 then b:=a + 1; / / проверяем первое условие

if a < 0 then b:=a - 2; / / проверяем второе условие

if a = 0 then b:=10; / / проверяем третье условие

writeln (' полученное число = ', b); / / выводим ответ

end.