На паскале

У второклассников очень популярна следующая задача:

101=1

8181515=4

1111112=0

8888888=14

1010101=3

7000007=?

Преподавателю программирования в некоем Центре для одаренных детей так понравилась эта задачка, что он решил именно ее использовать для проверки знаний математики 2-го класса у своих учеников.

Пусть первое число x, а соответствующее ему n

Входные данные
Единственное неотрицательное число x, не превышающее 101001.

Выходные данные
Выведите n.

var  x: string;  n, i: integer;  begin  readln(x);  for i := 1 to length(x) do    case x[i] of    '0', '4', '6', '9': inc(n);    '8': inc(n, 2);    end;  writeln(n);end.