Dim N1, N2, N3, N4 AS INTEGER
Console.WriteLine("Calculo de promedio")
Console.WriteLine("Ingrese Nota 1: ")
Console.WriteLine("Ingrese Nota 2: ")
Console.WriteLine("Ingrese Nota 3: ")
Console.WriteLine("Ingrese Nota 4: ")
IF N1 AND N2 AND N3 AND N4 >0 AND N1 AND N2 AND N3 AND N4 <=100 THEN
PROMEDIO = (N1+N2+N3+N4) / 4
CONSOLE.WriteLine("EL PROMEDIO ES: " &PROMEDIO)
CONSOLE.WriteLine("NECESITA MEJORAR")
IF PROMEDIO > 60 AND PROMEDIO <=70 THEN
CONSOLE.WriteLine("DESEMPEÑO REGULAR")