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