Sumacifras

{El siguiente programa desglosar† un n£mero de cuatro cifras en sus cuatro
n£meros distintos,uno por cada cifra y realizar† la suma entre ellas}
PROGRAM SumaCifras;

Var
    numero: integer; //el valor que ser† le°do
    c1,c2,c3,c4: integer;//Una variable para cada cifra

BEGIN
   write('Ingresa un n£mero de cuatro cifras: ');
   readln(numero); //Leemos el n£mero de 4 cifras

   (*Asignamos a cada variable el valor de la cifra que le corresponde*)
   c1:= numero mod 10;
   c2:= (numero mod 100) div 10;
   c3:= (numero mod 1000)div 100;
   c4:= numero div 1000;

   //Mostramos el resultado al usuario
   write('El resultado de sumar ',c4,'+',c3,'+',c2,'+',c1,' es: ',c1+c2+c3+c4);
END.