lama_byterun/regression/test014.lama

29 lines
No EOL
258 B
Text

var n;
n := read ();
while n > 0 do
if n < 1000
then
if n < 500
then
if n < 250
then
if n < 125
then
if n < 63
then
if n < 32
then
write (1)
fi
fi
fi
fi
fi
fi;
n := n - 1
od