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;
if seven then writeln('есть равные 7 ')
else writeln('кратных 7 нет');
end.
//Версия 3.3, сборка 1627
begin
write(abs(ReadInteger).ToString.Where(x->x='7').Count<>0);
end.
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.