Срочно!!!!Дано натуральное число
Определить колличество цифр 3 в нем.ЭТО ИЗ УЧЕБНИКА ПО ПРОГРАММИРОВАНИЮ ЗЛАТОПОЛЬСКИЙ 9 КЛАСС

спасибо)

var n,count:longint;begin read(n);count:=0;repeat n:=n div 10;inc(count);until n=0;writeln(count);end.