Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном...

Question

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Люди прошу помогите, пипец как надо!!!

Answer 1

var
    a: integer;

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

Answer 2

var a:integer;

begin

readln (a);

if (a>0) then  

begin

a:=a+1;

writeln (a);

end

else 

writeln (a);

end.