program test;
var x, temp: integer; flag: boolean;
begin
   write('Введите целое четырёхзначное число: ');
   read(x);

   flag:=false;

   while x 0 do
   begin
      temp:=x mod 10;

      if (temp = 2) or (temp = 7) then
      begin
         flag:=true;
         break;
      end;

   x:=x div 10;

end;

   if flag then
      writeln('2 или 7 входят в число.')
   else
      writeln('2 или 7 не входят в число.');
end.