Programa indicador de demora al transmitir

Proceso tiempo_de_demora
//programa que me indique el tiempo de demora al transmitir.
Escribir "Ingresar una cantidad de bytes a transmitir";
Leer a;
a<-a/1024;
Escribir a;
Mientras a<=0 Hacer
Escribir "no es posible, intentelo nuevamente";
Leer a;
FinMientras
Escribir "seleccione la velocidad de transferencia";
Escribir "1) Módem RTB: 56 kbps";
Escribir "2) ADSL: 1024 kbps";
Escribir "3) Cable: 2400 kbps";
Leer b;
Mientras b<1 y b>3 Hacer
Escribir "no esta dentro de las posibilidades";
Leer b;
FinMientras
Si b=1 Entonces
Escribir "se demora";
b<-a/56;
Escribir b;
Escribir "segundo";
FinSi
Si b=2 Entonces
Escribir "se demora";
b<-a/1024;
Escribir b;
Escribir "segundo";
FinSi
Si b=3 Entonces
Escribir "se demora";
b<-a/2400;
Escribir b;
Escribir "segundo";
FinSi
FinProceso