'BEGIN'
	'COMMENT'
		CREATE SOME RANDOM NUMBERS, PRINT THEM AND
		PRINT THE AVERAGE.
	;

	'INTEGER' NN;

	NN := 20;

	'BEGIN'
		'INTEGER' I;
		'REAL' SUM;

		VPRINT ("RANDOM NUMBERS:");

		SUM := 0;
		'FOR' I := 1 'STEP' 1 'UNTIL' NN 'DO' 'BEGIN'
			'REAL' X;
			X := RAND;
			SUM := SUM + X;
			VPRINT (I, X)
		'END';
	
		VPRINT ("AVERAGE IS:", SUM / NN)
	'END'
'END'