ПОМОГИТЕ ПРОШУ ,ОДИН НОМЕР НЕ МОГУ РЕШИТЬ Написать программу для решения задачи. Дано...

Question

ПОМОГИТЕ ПРОШУ ,ОДИН НОМЕР НЕ МОГУ РЕШИТЬ
Написать программу для решения задачи.
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число

Answer 1

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

Answer 2

If a>0 then
a:=a+1
Else write a