пользователь вводит положительное целое число , не превышающее 10^9, нужно написать программу , которая выводит на экран сумму цифр этого числа, меньших 7. если в числе нет цифр , меньших 7, требуется на экран вывести 0

Что-то твоя программа неправильно считает. На любое число выводит 21

var  n, sum: integer;begin  read(n);  while n > 0 do  begin    if n mod 10 < 7 then      sum := sum + n mod 10;    n := n div 10  end;  writeln(sum);end.