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

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.