Характеристика элемента аргона по фото ниже
много

program begenjov1997;

const

  n = 40; {количество элементов массива}

  m = 10000; {максимально возможное значение элемента}

var

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

  i,min: integer; b: boolean;

  s: string;

begin

  s: ='**** -=alphaeus=- ****';

  for i: =1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

  writeln; randomize;

  for i: =1 to n do a[i]: =random(m+1);

{ищем минимальный элемент с семеркой в конце в 8-ичной записи}

  min: =a[1]; b: =false;

  for i: =2 to n do  

    if (a[i] mod 8 = 7) and (a[i]< min) then

      begin

        min: =a[i];

        b: =true;

      end;  

{выводим min}

  writeln;

      if b then writeln('минимальный элемент с семеркой в конце в 8-ичной записи = ',min)  

        else writeln('0 (нет такого элемента)');

end.