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