Program n1;
var a: integer;
begin
for a:=8 to 96 do
if( a mod 8 =0) then writeln(a);
end.
Простое решение. Сначала просто заполняем массив в ручную, потом ищем минимальное значение и максимальное.
Только жесткий диск! Для короткого хранения данных используют "Оперативную память".