(*_____________________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejercicio Adicional (RM) 13.2.1: Volumenes de cubos

   Web del Autor: http://www.carlospes.com
  _____________________________________________________*)

program ARM13021;

uses Crt;

var
   Contador : Integer;
     Arista : Real;

begin
   ClrScr;
   Write( 'Introduzca arista: ' );
   ReadLn( Arista );

   Contador := 0; { Inicializacion del contador }

   while ( Arista > 0 ) do
      begin
         WriteLn( 'El volumen de un cubo de arista ', Arista:0:2,
                  ' es: ', Arista * Arista * Arista:0:2 );

         Contador := Contador + 1; { Incremento }

         Write( 'Introduzca arista: ' );
         ReadLn( Arista )
      end;

   Write( 'Ha calculado el volumen de ', Contador, ' cubo(s).' );
end.