дано трехзначное число. Верно ли, что среди его цифр есть равные 7?

var i,n:integer;

seven:boolean;

begin

  readln(n);

    for i := 1 to 3 do begin

    if n mod 10 = 7 then begin

      seven:=true;

      break;

    end;

    n:= n div 10;

  end;

  if seven then writeln('есть равные 7 ')

  else writeln('кратных 7 нет');

end.