CLS
PRINT "Algoritmo para calcular la calificacion final"
INPUT "Alumno, diga su nombre  :", Name$
PRINT "Hola "; Name$;
INPUT " Diga su primera nota ", A
INPUT "Diga su segunda nota ", B
INPUT "Diga su tercera nota ", C
LET P = (A + B + C) / 3
IF P >= 30 THEN
PRINT "Felicidades "; Name$; " Estas aprobado"
ELSE
PRINT "Lo sentimos "; Name$; " Estas reprobado"
END IF