Diagrama - Dividir

Proceso dividirEscribir "calcular la siguiente division";
Escribir "ingrese el valor de dividendo:";

Leer dividendo;
Escribir "ingrese el valor del divisor:";

Leer divisor;

resto <- dividendo MOD divisor;si (resto=0) Entonces

Escribir "la division es exacta";

Sino

Escribir "la division no es exacta";

FinSi Escribir "este programa fue escrito por denis";

FinProceso