Pascal/Turbo Pascal - calculo de una cifra

HOLA QUISIERA SABER SI ME PUEDEN AYUDAR CON UN CODIGO QUE TENGO QUE HACER EN PASCAL (NO MANEJO MUCHO ESTE LENGUAJE)

CONSTA DE LO SIGUIENTE:

SE NECESITA INGRESAR UNA CIFRA EJEMPLO

INGRESE NUMERO : 25481

DE ESTE NUMERO NECESITO OBTENER LOS SIGUIENTES DATOS.

1.- QUE ME DE LA SUMATORIA TOTAL DE CADA UNO DE LOS CARACTERES DE LA CIFRA INGRESADA EJEMPLO:

NUMERO : 25481
LA SUMA ES: 20

2.- NECESITO SABER LA CANTIDAD DE NUMERO PAR QUE HAY EN LA CIFRA
EJEMPLO.

NUMERO : 25481

CANTIDAD DE NUMEROS PAR : 3

ESPERO PUEDEN ORIENTARME UN POCO
DE ANTEMANO
MUCHAS GRACIAS.

ANGEL BARRIOS
[email protected]

Primero que nada, no nos girtes.

El primer problema dice que debes hacer la sumatoria de las cifras que componen el número en base decimal.
Esta es mi solución, puede haber otras:

uses crt;
var
Numero, Suma: integer;
Ch: char;
S: string;
I, C, Cifra: integer;
begin
Write('Ingrese un número: ');
ReadLn(Numero);
Str(Numero, S);
Suma:=0;
for i:=1 to Length(S) do
begin
Val(S[i],Cifra,C);
Suma:=Suma+Cifra;
end; { for }

WriteLn('La sumatoria de las cifras que componen el número ',numero,' es: ',Suma);
readkey;
end.

Para el segundo problema, aprovechando que ya obtenemos el valor numérico de cada cifra podemos hacer algo como esto:
uses crt;
var
Numero, Suma, Pares: integer;
Ch: char;
S: string;
I, C, Cifra: integer;
begin
Write('Ingrese un número: ');
ReadLn(Numero);
Str(Numero, S);
Suma:=0;
Pares:=0;
for i:=1 to Length(S) do
begin
Val(S[i],Cifra,C);
Suma:=Suma+Cifra;
if (Cifra mod 2) = 0 then Pares:=Pares+1;
end; { for }
WriteLn('La sumatorias de las cifras que componen el número ',numero,' es: ',
Suma,' y tiene ', Pares,' cifras pares.');
readkey;
end.

Eso es todo... creo.
Y no grites.