CLS
PRINT "ALGORITMO PARA CALCULAR UNA CALIFICACION MAYOR"
INPUT "SEA SU PRIMERA NOTA", A
INPUT "SEA SU SEGUNDA NOTA", B
INPUT "SEA SU TERCERA NOTA", C
INPUT "SEA SU CUARTA NOTA", D
LET P = A + B + C + D / 4
IF P >= 60 THEN
PRINT "APROBASTE"
ELSE
PRINT "REPROBASTE"
END IF