Pascal/Turbo Pascal - Necesito ayuda para realizar un programa.... ¡¡¡

Necesito ayuda para poder resolver estos programas en Pascal, es sobre buscar numeros que sean pares e impares. Y el segundo para realizar la suma de dos números

¿Qué tienes hecho hasta ahora?, muestranos por favor (risas abstenerse)

lo mejor es que envias lo avanzado o sino saca un libro te recomiendo el joyanes turbo pascal (tambien hay manuales en internet) pero se hace con un ciclos y setencias if para ver si un nuemro es par se sabe que su residuo es cero sino es impar usa la funcion mod

ejm
num=15;
if (num mod 2=0) then writeln('numero par)
else writeln('numero impar);

cualquier cosa escribeme a mi correo o mandame lo que tiene par ver es facil .............

lo mejor es que envias lo avanzado o sino saca un libro te recomiendo el joyanes turbo pascal (tambien hay manuales en internet) pero se hace con un ciclos y setencias if para ver si un nuemro es par se sabe que su residuo es cero sino es impar usa la funcion mod

ejm
num=15;
if (num mod 2=0) then writeln('numero par)
else writeln('numero impar);

cualquier cosa escribeme a mi correo o mandame lo que tiene par ver es facil .............

Espero que estas funciones te sirvan:

Function EsPar(Numero :LongInt) :Boolean;
Begin
EsPar := ((Numero mod 2)=0);
End;

Function EsImpar(Numero :LongInt) :Boolean;
Begin
EsImpar := Not EsPar(Numero);
End;

Function SumaPares(Desde, Hasta :LongInt) :LongInt;
Var
Indice :Longnt;
Suma :LongInt;
Begin
Suma := 0;
For Indice := Desde to Hasta do
If EsPar(Indice) then Suma := Suma + Indice;
SumaPares := Suma;
End;

Function SumaImpares(Desde, Hasta :LongInt) :LongInt;
Var
Indice :Longnt;
Suma :LongInt;
Begin
Suma := 0;
For Indice := Desde to Hasta do
If EsImpar(Indice) then Suma := Suma + Indice;
SumaImpares := Suma;
End;

Espero que te sirvan. Saludos ;-)