Program s;

 uses crt;

 const n=7;

 Var i,nomer,chislo:integer;

     a:array[1..n] of integer;

Begin

  nomer:=0;

  chislo:=0;

  For i:=1 to n do

   begin

     Write('Элемент массива №',i,' = ');

     Readln(a[i]);

   end;

  For i:=1 to n do

   if (a[i] mod 10 = 7) and (a[i]>0) and ((a[i]<chislo) or (chislo=0)) then

     Begin

       Nomer:=i;

       Chislo:=a[i];

     End;

Clrscr;

 Writeln('Элемент массива №',nomer,', равный ',chislo, '');

End.