Дано целое число. если оно больше 0, то прибавить к нему 2, если меньше или равно то...

Question

Дано целое число. если оно больше 0, то прибавить к нему 2, если меньше или равно то вычесть из него 1. вывести полученное число.

Answer 1

Var a:integer;
Begin
Readln(a);
If a>0 then
a:=a+2;
If a<=0 then<br>a:=a-1;
Writeln(a);
End.