DIM num AS STRING
DIM nrnot AS INTEGER
DIM n(i) AS INTEGER
DIM sum AS INTEGER
INPUT "Numele: "; num
PRINT "Nr de note pentru studentul "; num; ":";
INPUT nrnot
FOR i = 1 TO nrnot
IF i = 1 THEN
PRINT "Introdu prima nota: "
INPUT n(i)
ELSE
PRINT "Introdu a- "; i; "-a nota:"
INPUT n(i)
END IF
sum = sum + n(i)
NEXT i
med = sum / nrnot
PRINT "Media este:"
IF med < 5 THEN
COLOR 4
PRINT med
ELSEIF med = 5 THEN
COLOR 2
PRINT med
ELSE
COLOR 1
PRINT med
END IF
COLOR 0