var x: integer;
begin
readln(x);
if x > 0 then x := x + 1
else if x < 0 then x := x - 3
else x := 17;
writeln(x);
end.
PS: язык программирования pascal
var x: integer;
begin
readln(x);
if x > 0 then x := x + 1
else if x < 0 then x := x - 3
else x := 17;
writeln(x);
end.
PS: язык программирования pascal