Question

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

Answer 1

var  a: integer;

begin 
readln(a); 
 if a >= 0 then    
 if a = 0 then a := 10    
else Inc(a)   
else a -= 2; 
write(a);
end.