Más ejercicios (Festivo) # 7

7. El objetivo es que marque Pum en vez del número cuando sea multiplo de 7 y termine en 7.

_________________________________________


Proceso siete_Pum
num<-1;
cond<-"s";
Mientras cond="s" Hacer
Escribir "seguir? Si = s No = n";
Si (num mod 7)=0 Entonces
Escribir "Pum";
Sino 
Si ((num-7) mod 10)=0 Entonces
Escribir "Pum";
Sino Escribir num;
Finsi
Finsi
Leer cond;
num<- num+1;
FinMientras
FinProceso