Loops/While: Difference between revisions

Content added Content deleted
m (code to lang, but left something untouched because of doubts)
Line 209: Line 209:
=={{header|Modula-3}}==
=={{header|Modula-3}}==
The usual module code and imports are omitted.
The usual module code and imports are omitted.
<lang modula3>PROCEDURE DivBy2() =
<pre>
PROCEDURE DivBy2() =
VAR i: INTEGER := 1024;
VAR i: INTEGER := 1024;
BEGIN
BEGIN
Line 218: Line 217:
i := i DIV 2;
i := i DIV 2;
END;
END;
END DivBy2;
END DivBy2;</lang>
</pre>


=={{header|Oberon-2}}==
=={{header|Oberon-2}}==