with Ada.Text_IO;
use Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;
with Ada.Float_Text_IO;
use Ada.Float_Text_IO;

procedure main is
	type ar is array(1..10000) of Integer;
	s:String(1..3);
begin
	get(s);
    if s(1)='7' or s(2)='7' or s(3)='7' then
    put_line("Yes");
    else 
   	put_line("No");
    end if;
end Main;