Написать программу на языке паскаль. дано целое число. если оно является положительным, то прибавьте к нему 1 : в противном случае не изменять его. вывести полученное число.

Program N1;
var
a:integer;
begin
readln(a);
If (a>0) then writeln(a+1)         
           else writeln(a);
end.