15 lines
122 B
Plaintext
15 lines
122 B
Plaintext
BEGIN
|
|
x := READ;
|
|
x := -x;
|
|
|
|
WRITE(-x);
|
|
|
|
IF -x > 0 THEN x := 1 FI;
|
|
|
|
x := x + -1;
|
|
x := x - -x;
|
|
|
|
x := x -1
|
|
END
|
|
|