написать программу подсчитивающую количество цифр целого неотрицательного числа

var a,k:integer;beginwrite('a (>0) = ');readln(a);k:=0;while a>0 do begin k:=k+1; a:=a div 10; end;writeln('k = ',k);end.Пример:a (>0) = 180653k = 6