Дано трёхзначное число, кратна ли сумма его цифр 7?

program zad1;
var d,n,a,s,m,p:integer;
begin
writeln('введте трехзначное число');
readln(n);
m:=n div 100;
d:=n mod 100 div 10;
p:=n mod 10;
s:=p+d;
if s mod 7 = 0 then
writeln('да кратна')
else writeln('нет не кратна');
end.

program zad1;
var     n,s,i,n1 : integer;
BEGIN
   repeat
    repeat
      writeln('введте трехзначное число (0-закончить)');
      readln(n);
      if not((n>=100)and(n<=999)) then writeln('Это число не является трехзначным!');
    until ((n>=100)and(n<=999))or(n=0);
    n1:=n;
    if n<>0 then
     begin
      s:=0;
      for i:=1 to 3 do
       begin
         s:=s+n mod 10;
         n:= n div 10;
       end;
      if s mod 7 = 0 then
         writeln('да кратна')
                     else
         writeln('нет не кратна');
     end;
     writeln;
    until n1= 0;
END.

Var n : Word;
Begin
  Readln(n);
  If (n>99) and (n<1000) then Writeln((((n mod 10)+(n div 100)+((n div 10) mod 10)) mod 7)=0);
End.