Дано естественное число. Правильно ли, что количество его цифр есть четное

program zz1;
var n1,n,k,b,m:integer;
begin
read(n); //вводим данное n
read(b); //вводим заданную число
n1:=n; //запоминаем исходное n
while nlt;gt;0 do //повторяем цикл пока исходное число не станет 0
begin
m:=n mod 10; //получаем заключительную цифру
k:=k+1; //считаем ее
n:=n div 10; //выбрасываем эту цифру из числа
end;
if k mod 2=0 then writeln(количество цифр в числе ,n1, четно) else writeln(количество цифр в числе ,n1, нечетно);
if n1gt;b then write(исходное число ,n1, превосходит ,b) else write(начальное число ,n1, не превосходит ,b);// выводим ответ на экран
end.