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

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('Сумма цифр не кратна семи')  endend.Тестовое решение:Введите трехзначное число: 473Сумма цифр кратна семи