Pseint - Hallar si los tres números son múltiplos del menor

Proceso multiplo_del_menor
definir n1,n2,n3,n4,n5,n6 como entero;
Definir mul,mul1,mult,mult1 como real;
escribir "Digite Tres Numeros";
leer n1; leer n2; leer n3;

si n1<n2 y n1<n3 entonces
escribir n1, " es el menor";
n4<-n1
n5<-n2; n6<-n3;
Sino
si n2<-n1 y n2<n3 Entonces
escribir n2, "es el menor";
n4<-n2
n5<-n1; n6<-n3;
Sino
escribir n3, " es el menor";
n4<-n3
n5<-n1
n6<-n2
FinSi
FinSi


mul<-(n5/n4);
mult<-mul*n4;
mul1<-(n6/n4)*n4;
mult1<-mul1*n4;

si mult=n5 entonces
escribir n5, " es multiplo del menor";

sino
escribir n5, " no es multiplo del menor";

FinSi

si mult1=n6 entonces
escribir n6," es multiplo del menor";
sino
escribir n6," no es multiplo del menor";
FinSi


FinProceso