дано трехзначное число. Верно ли, что среди его цифр есть равные 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.

//PascalABC.NET//Версия 3.3, сборка 1627beginwrite(abs(ReadInteger).ToString.Where(x->x='7').Count<>0);end.