var a,b,i:integer;
c:boolean;
begin
readln(a);
for i:=1 to 3 do
b:=a mod 10; // выделяем и сохраняем последнюю цифру числа
a:=a div 10; // убираем последнюю цифру числа
if ((b=4) or (b=7)) then // проверяем цифру на равенство
c:=true;
break; // если цифра проверку, то выходим из цикла
end
else c:=false;
end;
if (c=true) then writeln('Входит')
else writeln('Не входит');
end.
var a,b,i:integer;
c:boolean;
begin
readln(a);
for i:=1 to 3 do
begin
b:=a mod 10; // выделяем и сохраняем последнюю цифру числа
a:=a div 10; // убираем последнюю цифру числа
if ((b=4) or (b=7)) then // проверяем цифру на равенство
begin
c:=true;
break; // если цифра проверку, то выходим из цикла
end
else c:=false;
end;
if (c=true) then writeln('Входит')
else writeln('Не входит');
end.