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

Question

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

Comments

Автор, что вы хотите от этого задания?

---

Оно не правельное

---

Ну так а в чем задача?

Answer 1

Var n:integer;

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