Cantidad Dias Meses Años

El siguiente programa solicita N dias y clasifica cuantos Dias, Meses y Años equivale esa cantidad N.

Proceso añosmeseydias

Definir dias,a,m,d,r Como Entero;

Escribir "Cantidad de dias:";

Leer dias;

a<-dias/360;

r<-dias-a*360;

m<-r/30;

d<-r-m*30;

Escribir "Los dias son: ",d;

    Escribir "Los meses son: ",m;

Escribir "Los años son: ",a;

FinProceso