{Файл: progam_stud.pas
Задача:
    Массив состоит из 40 элементов. 
    Значение от 1 до 10000. Найти и 
    вывести наименьший элемент массива, 
    восьмеричная запись которого заканчивается 7. 
    Если такого элемента нет, вывести 0.
Автор:
   
Дата:
  }
const
  N=40;
var 
  a     : array [1..N] of integer;
  i, min    : integer;
  k             : boolean;
begin
  //Ввод
  randomize;
  for i:=1 to N do
    begin
      a[i]:=random(10000);
      write('a[',i,']=',a[i],'    ');
    end;
    writeln();
    writeln();
  min:=MaxInt;
  k:=false;
 //решение
   for i:=1 to N do
    begin
        if (a[i] mod 8 =7) and(min>a[i]) then
        begin
            min:=a[i]; //минимальное значение
            k:=true; //cчетчик 
        end;
    end;
    
    if k=true then
      writeln(min)
    else
      writeln('даного числа нет');

end.