1.дано натуральное число : 1) найти количество цифр данного числа 2) верно ли что данное число оканчивается на нечетную цифру

на паскале:

var

n,s,p:integer;

begin

read(n);

p:=n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n>0 do

begin

n:=n div 10;

s:=s+1;

end;

writeln ('количество цифр в числе', s);

end.