Question

Составить программу по условию.

Answer 1

Ответ:

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