Esferas

PROBLEMA
Tengo una esfera a la que le cabe un liitro de agua. Si tengo otra a la que le cabe el triple de radio ¿Cuantas esferas de un litro se necesitan para llenar en grande?

ALGORITMO
Entradas:
Numérico     volumen_esfera1
Numérico      PI

Saidas
Numérico     cantidad_bolitas

INICIO
Leer volumen_esfera1
Establecer PI en 3.1416
Dividir 4 entre 3 y guardar en r1
Multiplicar r1 por PI y guardar en r1
Dividir volumen_esfera1 entre r1 y guardar en radio
Calcular raíz cubica de radio y guardar
Multiplicar radio por 3 y guaradr en r2
Dividir 4 entre 3 y guardar en r3
Multiplicar r3 por PI y guardar
Multiplicar r2 por r3 y guardar en volumen
Dividir volumen entre volumen_esfera1 y guardar en cantidad_bolitas
Imprimir cantidad_bolitas
FIN

PSEUDOCÓDIGO
class  Ejercicio_volumen
          // Declaraciones (entradas)
          real: volumen_esfera1
          real: PI = 3.1416
          // Declaraciones (salidas)
          real: cantidad_bolitas
          // Procedimiento
          Main
                 Print "Introduce el volumen de la esfera chica"
                 Scan volumen_esfera1
                 r1 = 4/3
                 r1 = r1 * PI
                 radio = volumen_esfera1 / r1
                 radio = raiz 3 (radio)
                 r2 = radio * 3
                 r3 = 4/3
                 r3 = r3 * PI
                 volumen = r2 * r3
                 cantidad_bolitas = volumen / volumen_esfera1
                 Print "La cantidad de esferas chicas que caben en la grande es:"
                 Print cantidad_bolitas
          End_main