Дано целое число если оно яв-ся полож. то прибавить 1. если отрицательным -2. если 0 то прибавить 10.

 var
     a : integer;

begin
 readln (a);
 if a > 0 then
  a := a +1;
 if a <0 then
   a := a-2
if a= 0 then
  a := 10;
writeln (a);
end.