--AUTOR: Jose Luis VILLARIG GARCIA (V2975813) 472542@cepsz.unizar.es
--PROYECTO: Practicas de Intr. Programacion 99/00. Practica2-Ej.1.1.4.
--FICHERO: Crapulo.adb
--FECHA: Octubre-Noviembre 1999
--Modidicado por:
--Fecha modificacion:
--Descripcion: Este programa haya el crapulo de un numero
with text_io, Ada.integer_text_io;
use text_io, Ada.integer_text_io;
procedure crapulo is
   -- declaracion de constantes y variables
   n, crapulo: integer;

begin
   put ("Introduce un numero: ");
   get (n);

   while (n>9) loop
      crapulo := 0;

      while (n/=0) loop
         crapulo := crapulo+(n mod 10);
         n := n/10;
      end loop;

      n := crapulo;
   end loop;

   put ("Su crapulo es: ");
   put (crapulo,0);

end crapulo;