Question

Дано целое число. Если оно положительное то +1, иначе не менять заданное число. ИНФОРМАТИКА

Answer 1

var n:integer;

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