Question

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

Answer 1

var
    i : Integer;
begin

 

    Write('Введите целое число: ');
    Readln(i);

 

    if i >= 0 then inc(i);

 

    Writeln(i);

end.