Два файла с одинаковым растровым изображением, во сколько раз информационный объем 1 файла будет больше 2, если в 1 файле глубина цвета 32бит, а во 2 файле 16бит ​

Разберем по порядку. итак: 1 проход цикла: (а < =8)? да. k: =k+1 --> k=2; a: =a+2 -->   a=2 2 проход цикла: (а < =8)? да. k: =k+1 --> k=3; a: =a+2 -->   a=4 3 проход цикла: (а < =8)? да. k: =k+1 --> k=4; a: =a+2 -->   a=6 4 проход цикла: (а < =8)? да. k: =k+1 --> k=5; a: =a+2 -->   a=8 5 проход цикла: (а < =8)? да! k: =k+1 --> k=6; a: =a+2 -->   a=10 6 проход цикла: (а < =8)? нет.. выход из цикла. в результате, переменная k=6.

Const   dm: array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31); var   d,m,y,dfeb: integer; begin   write('введите дату в формате день месяц год: ');   read(d,m,y);   if (m=2) and (d> =28) then begin       if ((y mod 4=0) and (y mod 100 < > 0)) or           ((y mod 100=0) and (y mod 400 =0)) then dfeb: =29       else dfeb: =29;       if d=dfeb then begin d: =1; inc(m) end       else inc(d);       if m=13 then begin m: =1; inc(y) end   end   else begin       inc(d);       if d> dm[m] then begin d: =1; inc(m) end;       if m=13 then begin m: =1; inc(y) end   end;   writeln('следующая дата ',d,' ',m,' ',y) end.