lama_byterun/regression/test014.expr
2018-03-20 23:13:51 +03:00

27 lines
No EOL
246 B
Text

read (n);
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