//fpc 3.0.0
program CALKYLATOR;
var
A:Integer;
begin
writeLn('Введите число: ');
readLn(A);
if A > 0 Then
writeLn(A + 1)
else
if A < 0 Then
writeLn(A - 2)
writeLn(10);
end.