Сколько памяти (в битах) потребуется, чтобы сохранить изображение из 400 пикселей и глубиной цвета 3 бита?​

Var
  a:array[1..10000] of integer;
  i, n, first, last:integer;
  fl: boolean;
begin
  Read(n);
  For i:= 1  to n do
    Read(a[i]);fl:=false;
  For i:= 1 to n do
    if (a[i] mod 5 = 0) then
      if (fl = false) then begin
                               fl:= true;
                               first := i;
                               last:= i;
                           end
                           else
                               last := i;
   Writeln('Первый -> ', first);
   Writeln('Последный -> ', last);
       
end.

1) files.w

Объяснение:

В масках файла (обозначение для группы файлов) используют два символа:

1) ? (вопросительный знак) - на его месте в имени файла должен быть ровно один произвольный символ

2) * (звёздочка) - на её месте в имени файла может быть последовательность любых допустимых символов произвольной длины, в том числе и пустая последовательность (нет символов)

?fil?*.w → 1 любой символ + fil + 1 любой символ + любая последовательность + .w

1) files.w - не удовлетворяет маске (нет символа перед fil)

2) аfile.w - удовлетворяет маске (1 любой символ (a) + fil + 1 любой символ (e) + любая последовательность (пустая) + .w)

3) 2files.w - удовлетворяет маске (1 любой символ (2) + fil + 1 любой символ (e) + любая последовательность (s) + .w)

4) 1filled.w​ - удовлетворяет маске (1 любой символ (1) + fil + 1 любой символ (l) + любая последовательность (ed) + .w)