'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'