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