Задача Кругляшки

[darter96]

Входной файл: n.in
Выходной файл: n.out
Ограничение по времени: 1 сек.

Условия
Однажды в просторах рунета появился следующий ребус:
157892 = 3
203516 = 2
409578 = 4
236271 = ?
Никто так и не смог его разгадать. Позже оказалось, что число в правом столбце равно сумме "кругляшей", которые есть в цифрах числа, расположенного слева. Ваша задача написать программу, которая определяет, сколько кругляшей в числе.

Входные данные
Во входном файле записано целое число N (0 ≤ N ≤ 10^100).

Выходные данные
Выведите одно число – ответ на поставленную задачу.
Объясните или напишите код(лучше код)

[darter96]

Не понимаю ????? КАК Эта сделать ????

[Stilet]

Приблизительно:
157892 это строка так? если нет превращаем в строку
Тогда

for i:=1 to length(s) do
 case s[i] of
  '6','9','0':inc(krugov,1);
  '8':inc(krugov,2);
 end;

S - та самая строка