Помогите с паскалем пожалуйста!! Дано натуральное число n. Составьте программку, которая

var n: integer; k: integer; begin write( Введите естественное число = ); readln( n ); k:= 0; while n lt;gt; 0 do begin n:= n div 10; k:= k+1; end; writeln( Количество цифр равно =, k ); end. В переменной "k" сохраняется счетчик цифр, содержащихся в числе "n". Изначально ему присваивается значение "0". Количество десятичных цифр в числе равно количеству десятичных разрядов. По этому, переменная "n" в цикле делится на "10" без остатка и при каждом делении возрастает счетчик десятичных цифр "k". Цикл заканчивается, когда переменная "n" становится одинакова "0".