С клавиатуры вводится целое положительное число. Вычислить сумму нечётных цифр.(Pascal)

var n,k,s:integer; begin write('n='); readln(n); s:=0; while n>0 do   begin   k:=n mod 10;   if k mod 2 <> 0 then s:=s+k;   n:=n div 10;  end; writeln('s=',s); end. Пример: n=123456 s=9