Ciclo Hasta

1)Ingresar el nombre del alumno, la nota , luego preguntar si desea continuar , al
final presentar el numero de aprobados y reprobados.

caracter resp
real nota
entero aprobado,reprobado
cadena[25] nombre
inicio
aprobado<-0
reprobado<-0
repita
Escriba "ingresar el nombre del alumno: "
lea nombre
Escriba "ingresar la nota del alumno: "
lea nota
si nota >= 3 entonces
aprobado<-aprobado+1
sino
reprobado<-reprobado+reprobado
fin si
escriba " Desea continuar S/N: "
lea resp
hasta (resp='n') o (resp='N')
escriba " Aprobados: ",aprobado
llamar nueva_linea
escriba " Reprobados: ",reprobado
fin

2)