Completa il programma a lato, redatto in QBasic, ovvero questo, redatto in R.    
INPUT NDati
i = 0: somma = 0
Introduzione:
  INPUT
  somma = somma + dato
  i = i + 1
IF i < Ndati THEN GOTO
PRINT "media ="; somma/