8 lines
117 B
Text
8 lines
117 B
Text
BEGIN
|
|
Integer i;
|
|
for i := 10 step -1 until 0 do
|
|
BEGIN
|
|
OutInt(i, 2);
|
|
OutImage
|
|
END
|
|
END
|