[fojia]

дано натуральное число!подсчитать сумму его четных цифр!через while

[Konrad]

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

дано натуральное число!подсчитать сумму его четных цифр!через while

И что дальше?
Что от нас то требуется?

[fojia]

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

[lmikle]

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

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

Код:

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

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

[Aristarh Dark]

А я бы в строку перевел.