Question

Дано целое число, которое вводится с клавиатуры. Если оно является
положительным то вычесть из него 1, отрицательным прибавить к нему 5, равно нулю
­ заменить на 121. Вывести полученное число. Написать полученную программу в Pascal

Answer 1

var

a:integer;

begin

read(a);

if a = 0 then  

write(121);

if a = 0 then

exit  

else

if a > 0 then  

a:= a + 1  

else a:= a + 5;

writeln(a);

end.