С клавиатуры вводится трёхзначное число. Найти числоединиц в нем

var n,k:integer;beginwrite('n='); readln(n);k:=0;if n div 100 = 1 then k:=k+1;if n div 10 mod 10 = 1 then k:=k+1;if n mod 10 = 1 then k:=k+1;writeln('k=',k);end.Пример:n=191k=2