RosettaCodeData/Task/Loops-While/Seed7/loops-while.seed7

12 lines
179 B
Plaintext

$ include "seed7_05.s7i";
const proc: main is func
local
var integer: i is 1024;
begin
while i > 0 do
writeln(i);
i := i div 2
end while;
end func;