[lmikle]

Сообщение от fojia

требуется как вайлом посчиать сумму четных цифр данного числа

Код:

while (n div 10) > 0 do
begin
...
end;

Что-то типа такого.
Дальше думай сам