Resolucion Prueba en Pseint

Bien ahora veremos como resolver el examen EPR1

Proceso Ejercicio_Prueba
 
 
    Escribir "INGRESE OPCION A CALCULAR"
    Escribir "1.ESTABLECIDO"
    Escribir "2.POR TECLADO"
    Escribir "3.MOSTRAR Nª"
    Escribir "4.MOSTRAR MULTIPLOS"
 Leer seleccion


Segun seleccion Hacer
    1:
        lado=7
        periCuadrado=lado*4
        areaCua=lado^2
        Escribir "AREA Y PERIMETRO CUADRADO L=7cm"
        Escribir "EL AREA CORRESPONDIENTE ES: ",areaCua
        Escribir "EL PERIMETRO CORRESPONDIENTE ES: ",periCuadrado





2:
        Escribir "INGRESE BASE DEL RECTANGULO"
        Leer base;
        Escribir "INGRESE ALTURA DEL RECTANGULO"
        Leer altura;
        periRec=2*(base+altura)
        areaRec= base*altura
        diagonal=rc(base^2)*rc(altura^2)
        Escribir "EL PERIMETRO DEL RECTANGULO ES: ",periRec
        Escribir "EL AREA DEL RECTANGULO ES: ",areaRec
        Escribir "LA DIAGONAL DEL RECTANGULO ES: ",diagonal


3:
        Escribir "NUMEROS DEL 50 AL -80"
       num=50
       Repetir
       Escribir num
       num=num-1
       Hasta Que num<=-81


4:
      mult2=0
      mult3=0
      mult5=0
      mult7=0
  Para i<-1 Hasta 100 Con Paso 1 Hacer
        si(i mod 2=0)entonces
 mult2=mult2+1;
 finSi
        si (i mod 3=0)entonces
 mult3=mult3+1;
 finSi
 si(i mod 5=0)entonces
 mult5=mult5+1;
 FinSi
 si (i mod 7=0)entonces
 mult7=mult7+1;
 FinSi
 Fin Para
 Escribir "MULTIPLOS DE 2,3,5 Y 7"
 Escribir "LA CANTIDAD DE MULTIPLOS DE 2 ES: ",mult2
 Escribir "LA CANTIDAD DE MULTIPLOS DE 3 ES: ",mult3
 Escribir "LA CANTIDAD DE MULTIPLOS DE 5 ES: ",mult5
 Escribir "LA CANTIDAD DE MULTIPLOS DE 7 ES: ",mult7

   
   De Otro Modo:
 Escribir "Opcion no valida"
    Fin Segun
FinProceso