Паскаль, обработка последовательностей!

[Korun]

Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех положительных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести 0

[Loky]

Стучись 2552343 помогу

[Serge_Bliznykov]

var s : integer;
    One : integer;
begin
  WriteLn('Вводите последовательность. 0 - окончание ввода');
  s := 0;
repeat
   Read(One);
   if (One>0) and (One mod 2=0) then
       s := s + One;
until One = 0;
WriteLn('Сумма положительных чётных чисел равна ',s:1);
end.

p.s. для проверки на чётность вместо One mod 2 = 0
можно написать Not Odd(One) (Odd - функция "Нечётный" - истина, когда число нечётное,
добавив Not - получаем проверку на чётность...