lama_byterun/regression/test012.expr
2019-09-19 18:37:08 +03:00

14 lines
No EOL
210 B
Text

global n;
n := read ();
while n >= 0 do
if n > 1
then
write (0);
if n == 3 then write (0) else write (1) fi
else
write (1);
if n > 0 then write (0) else write (1) fi
fi;
n := n - 1
od