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

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