Dim i is an integer, n is an integer and m is an integer.

For i = 1 to 50

n = Int( 1 + Rnd * 100)

If n<, then 60

Print n;

m = m + 1

If ... it will be over.

If m Mod 10 = 0, print.

then

End joint