1.Дано естественное число : 1) отыскать количество цифр данного числа 2)

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