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.