program FindSmallestOctalEndingWith7;
var
arr: array[1..40] of integer;
i, min: integer;
begin
min := 0;
// Ввод элементов массива
for i := 1 to 40 do
begin
readln(arr[i]);
end;
// Поиск минимального элемента восьмеричной записи оканчивающегося на 7
for i := 1 to 40 do
begin
if (arr[i] mod 8 = 7) and ((min = 0) or (arr[i] < min)) then
begin
min := arr[i];
end;
end;
// Вывод результата
if min = 0 then
writeln('Ответ: 0')
else
writeln('Наименьший элемент массива восьмеричной записи оканчивающегося на 7: ', min);
end.