Proceso leccion_1
		escribir 'ingrese el numero decimal'
		leer a
		si a>0 entonces
			b<-a
			i<-1
			bina<-0
			mientras b<>1 Hacer
				bina<-bina+(b MOD 2)*i
				b<-TRUNC(b/2)
				i<-i*10
			FinMientras
			bina<-bina+(b MOD 2)*i
			escribir bina
		FinSi
FinProceso