Вывести слово "Да" , если число N делится на 7, или остаток от деления N на 7

const
  d = 3;
var
  t : Text;
  c : Char;
  r : Integer;
begin
  Assign(t, 'input.txt');
  Reset(t);
  while Not EOF(t) do
    begin
      Read(t, c);
      if c in ['0'..'9'] then
        r := (r * 10 + Ord(c) - 48) mod d;
    end;
  Close(t);
  Assign(t, 'output.txt');
  Rewrite(t);
  Write(t, r);
  Close(t);
end.

  if r=0 then WriteLn(t,'Да') else WriteLn(t,r);

  while not EoLn(t) do

  d = 7;

        r := (r * 3 + Ord(c) - Ord('0')) mod d;

const
  d = 7;
 
var
  t: text;
  c: char;
  r: Integer;
 
begin
  assign(t, 'input.txt');
  reset(t);
  r := 0;
  while not eoln(t) do
    begin
      read(t, c);
      r := (r * 3 + ord(c) - ord('0')) mod d
    end;
  close(t);
  assign(t, 'output.txt');
  rewrite(t);
  if r = 0 then writeln(t, 'Да') else writeln(t, r);
  close(t)
end.

const
  d = 7;
 
var
  c: char;
  r: Integer;
 
begin
  write('Введите число: ');
  r := 0;
  while not eoln do
    begin
      read(c);
      r := (r * 3 + ord(c) - ord('0')) mod d
    end;
  readln;
  if r = 0 then write('Да') else write(r);
  readln
end.

const
  d = 7;
var
  c: char;
  r: Integer;
begin
  r := 0;
  while not eoln do
    begin
      read(c);
      r := (r * 3 + ord(c) - ord('0')) mod d
    end;
  readln;
  if r = 0 then write('YES') else write(r);
end.