Pascal/Turbo Pascal - pls

me pueden ayudar a hacer unprograma que pida numero hasta teclear 1 y obtenga la suma de umero pares que se introdujeron. pls es para mañana

Hola Xio! Te muestro cómo es el ejercicio:

program Ejercicio;

var
numero : integer;
suma : integer;

begin {empieza el programa}
suma:=0;
ReadLn( numero );
while ( numero <> 1 ) do
begin {leo los números repetidamente hasta que llegue el 1}
if ( numero mod 2 ) = 0 then {verifico si es par, y si lo es lo sumo}
suma:=suma + numero;
readln( numero ); {vuelvo a leer}
end;
write( 'La suma de números pares es: ', suma );
end.

Un abrazo!

muchas gracias por ayudarme me sacaste de un apuro ... adios!!