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

var n,k,s:integer;beginwrite('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=123456s=9