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

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
Сумма цифр кратна семи

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.