Ребят помогите пожалуйста !!!!!!
нужно составить программу определения количества цифр во введенном числе ((((((((((в программе КУМИР !!!!!!!!)))))

var n,c:integer; procedure Kol(n: integer; var c:integer); begin while n > 0 do begin n := n div 10; c += 1; end; end; begin readln(n); Kol(n, c); write(c); End.