Ejercicio 9

 Plantee e implemente un programa en PASCAL que reciba números enteros por
teclado y al terminar indique cuánto vale la suma de los números pares y los
impares por separado. La entrada de números terminará cuando se introduzca
un cero.


PROGRAM suma(input,output);
(*Programa que acepte numeros por teclado y al acabar realizara la suma de los pares y los impares por separado y el programa acabara cuando el usuario meta un 0*)
VAR
n:integer;
sumapares:integer;
sumaimpares:integer;

BEGIN

REPEAT
BEGIN
writeln('Escriba numero');
read(n);
IF n mod 2:=1 THEN (sumaimpares:=n+sumaimpares) ELSE (sumapares:=n+sumapares);
END;
UNTIL n=0;
END.