Дано тризначне число. Чи кратна сума його цифр семи? Програма на мові Паскаль

var   m, n, n10, n100: integer; begin   write('Введите трехзначное число: ');   readln(m);   if (m > 99) and (m < 1000) then   begin     n100 := m div 100;     n10 := (m mod 100) div 10;     n := m mod 10;     if (n + n10 + n100) mod 7 = 0 then writeln('Сумма цифр кратна семи')     else writeln('Сумма цифр не кратна семи')   end end. Тестовое решение: Введите трехзначное число: 473 Сумма цифр кратна семи