Дано целое число. если оно положительное то +1, иначе не менять заданное число. информатика

Var n:integer;

begin
readln(n);
if n>0 then begin inc(n);  writeln(n);end
else writeln(n);
end.