6 lines
73 B
Text
6 lines
73 B
Text
|
a := 1024;
|
||
|
|
forever: exitif not (a > 0);
|
||
|
|
show a;
|
||
|
|
a := a div 2;
|
||
|
|
endfor
|