solucion parcial n° 3 de logica

1.........
Proceso Curso
 Escribir "entre ultimo digito de su identificacion";
 Leer digito;
 Si digito mod 2 = 0 Entonces
  descuento <-80000*10/100;;
 valorcurso<-80000 - descuento;;
 Sino
  descuento<-80000 * 5 / 100 ;;
  valorcurso<-80000 - descuento ;
 FinSi
 iva<-valorcurso * 16 / 100;;
Escribir valorcurso ;;
valor<-iva + valorcurso;
FinProceso
2......

Proceso nota
 Escribir "nota primero corte";
 Leer nota1;
 Escribir "nota segundo corte";
 Leer nota2;
 Escribir "nota tercero corte";
 Leer nota3;
 Escribir "nota cuarto corte";
 Leer nota14;
 definitina<-((nota1 * 0.2) + ( nota2 * 0.2 ) + ( nota3 * 0.3 ) + (nota4 * 0.3 ));
 Si definitiva > 3 Entonces
  Escribir "aprovo" , definitiva;
 Sino
  Escribir "reprovo" , definitiva;
 FinSi
FinProceso