Search found 1 match

by pahihu
Mon Dec 08, 2014 8:43 am
Forum: Oberon Language
Topic: Oberon Competition - Win a $US50 Amazon Gift Voucher
Replies: 6
Views: 44919

Re: Oberon Competition - Win a $US50 Amazon Gift Voucher

MODULE Quiz;

VAR
a1*, a2*: ARRAY 1000 OF INTEGER;

PROCEDURE* Init*;
CONST N = LEN(a1) - 1;
VAR i: INTEGER;
BEGIN
FOR i := 0 TO N DO
a1 := i;
a2 := i
END
END Init;