var i : Integer;begin
Write('Введите целое число: '); Readln(i);
if i >= 0 then inc(i);
Writeln(i);
end.
var
i : Integer;
begin
Write('Введите целое число: ');
Readln(i);
if i >= 0 then inc(i);
Writeln(i);
end.