Calculadora básica en PSeInt [mientras, si-entonces, para]

Lo que se pide es hacer una calculador básica en PSeInt, que haga sumas, restas, multiplicaciones o divisiones.
El seudocodigo esta escrito para mostrar un menú y mostrar un error si se coloca otro número que no sea el del menú.

También muestra un error si es que se quiere dividir entre cero.
*La configuración de PSeInt en la que se escribió el algoritmo es la que viene por defecto
Si este ejercicio de Calculadora les fue de alguna ayuda por favor dejen algún comentario o compartan el post en las redes sociales. Nos vemos en el siguiente algoritmo y nunca dejen de practicar :)

// Simple Calculadora by CodigoLibre.BPtop.Com.Ar
Proceso calculadora
    Salir<-0;
    Repetir
  Escribir "Escriba un numero";
  Leer Primer_numero;
  Escribir "Eliga una opcion";
  Escribir "1- Sumar";
  Escribir "2- Restar";
  Escribir "3- Multiplicar";
  Escribir "4- Dividir";
  Escribir "0- Salir";
  leer var_opcion
  Segun var_opcion Hacer
   1:
    Escribir "Ingresa el numero por el cual quieres sumar a " ,Primer_numero, "";
    leer Segundo_Numeromas
    Escribir "Resultado: " ,Primer_Numero+Segundo_Numeromas;
   2:
    Escribir "Ingresa el numero por el cual quieres restar a " ,Primer_numero, "";
    leer Segundo_Numeromenos
    Escribir "Resultado: " ,Primer_Numero-Segundo_Numeromenos;
   3:
    Escribir "Ingresa el numero por el cual quieres multiplicar a " ,Primer_numero, "";
    leer Segundo_Numeromul
    Escribir "Resultado: " ,Primer_Numero*Segundo_Numeromul;
   4:
    Escribir "Ingresa el numero por el cual quieres Dividir a " ,Primer_numero, "";
    leer Segundo_Numerodiv
    Escribir "Resultado: " ,Primer_Numero/Segundo_Numerodiv;
   0:
    Salir<-1;
   De Otro Modo:
    Escribir "Opcion Invalida";
  FinSegun
 Hasta Que Salir=1
 
FinProceso