Transferencia menos el 20 porciento de impuestos

Proceso banco
	//Deinimos las variables a utilizar
    Definir c como entero;
    Definir s, st, im como real;

    //Solicitamos el número de cuenta
    Escribir ("Ingrese número de transferencia: ");
    Leer c;//Almacenamos el valor

    //Genera una cantidad aleatoria entre 0 y 1000, que se ocupa como saldo de la cuenta
    s = azar (1000)+1;
	//Total de impuesto a aplicar
	im = (s * 0.20);

    //Al numero generado al azar le quitamos el 20 porciento de impuesto
    st = s - im;

    //Mostramos el número de cuenta ingresado
    Escribir ("Tu número de transferencia es: "), c;

    //Mostramos el saldo total de la cuenta
    Escribir ("El monto total de la transferencia es: $"),s;

	//Mostramos el total de impuesto a restar de la transferencia
	Escribir ("El 20% es: "), im;

    //Mostramos el saldo de la cuenta con los impuestos aplicados
    Escribir (" su saldo actual: $"),st;
FinProceso