RosettaCodeData/Task/Loops-While/ALGOL-60/loops-while.alg

INTEGER I;
I:=1024;
WHILE I>0 DO
BEGIN
   OUTINT(I);
   I:=I DIV 2
END
Just another update 2015-02-20 00:35:01 -05:00			`INTEGER I;`
			`I:=1024;`
			`WHILE I>0 DO`
			`BEGIN`
			`OUTINT(I);`
September 2017 Update 2017-09-23 10:01:46 +02:00			`I:=I DIV 2`
Just another update 2015-02-20 00:35:01 -05:00			`END`