Question

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

Answer 1

// PascalABC.NET

begin

 var a := ReadInteger;

 if a <= 0 then

   a += 1

 else

   a *= 2;

 Print(a)

end.