Задача о сумме четных чисел. Опции

[vell]

Нам задали 15 задач на Pascalе. Я решила 14, но последняя все никак не получается.
Задача: Дано натуральное число N. Найти сумму четных цифр в данном числе.
Если кто знает, как её решать - подскажите, буду очень благодарна.

[Ivs]

Можно еще вот так:

Код

Var
 N,S  : LongInt;
Begin
 S:=0;
 N:=1234567;
 Repeat
   If not Odd(N) then S:=S+(N mod 10);
   N:=N div 10;
 Until N<1;
 Writeln(s);
End.

Ты проверяешь на четность само число, а надо цифру.