Conversor de unidades de almacenamiento

Proceso conversor_de_unidades_de_almacenamiento
//programa que convierta de bytes a otras medidas almacenamiento.
Escribir "ingrese la cantidad de bytes a transformar";
Leer a;
Mientras a<0 Hacer
Escribir "no es posible, intentelo nuevamente";
Leer a;
FinMientras
Escribir "seleccione la operacion que desee";
Escribir "1) de bytes a kilobytes";
Escribir "2) de bytes a megabytes";
Escribir "3) de bytes a gigabytes";
Escribir "4) de bytes a terabytes";
Leer b;
Mientras b<1 y b>4 Hacer
Escribir "no esta dentro de las posibilidades";
Leer b;
FinMientras
Si b=1 Entonces
Escribir "son";
b<-a/1024;
Escribir b;
Escribir "kilobytes";
FinSi
Si b=2 Entonces
Escribir "son";
b<-a/1048576;
Escribir b;
Escribir "megabytes";
FinSi
Si b=3 Entonces
Escribir "son";
b<-a/1073741824;
Escribir b;
Escribir "gigabytes";
FinSi
Si b=4 Entonces
Escribir "son";
b<-a/1099511627776;
Escribir b;
Escribir "terabytes";
FinSi
FinProceso