Сканируется цветное изображение 48, 26×48, 26 дюйм. разрешающая сканера 1200×1200 dpi, нлубина цвета 24 бит. какой информационный объем будет иметь полученный графический файл?

Dpi - это аббревиатура английского выражения Dots Per Inch (точек на дюйм). Переведем размеры изображения в точки.
48.26×1200=57912 точек (они же - пиксели).
Размер изображения составит 57912×57912=3353799744 точек.
Глубина цвета - это количество бит (или байт), которые требуются для кодирования цвета одной точки. 24 бита - это 24/8=3 байта.
Тогда общий объём составит 3353799744×3=10061399232 байт.
Переводим в килобайты: 10061399232/1024≈9825585.1875 Кбайт.
Переводим в мегабайты: 9825585.1875/1024≈9595.3 Мбайт
Моно и в гигабайты перевести: 9595.3/1024≈9.37 Гбайт.

Var a: array [1..1000] of integer; n, i, max, min, amount:integer;
begin
     read(n);
     for i := 1 to n do
         read(a[i]);
     max := a[1];
     min := a[1];
     amount := 0;
     for i := 1 to n do
     begin
          if a[i] > max
          then
              max := a[i];
          if a[i] < min
          then
              min := a[i];
          if (i mod 2 = 0) and (a[i] < 0)
          then
              amount := amount + 1;
     end;
     writeln('Sum of min and max equals ',max + min);
     writeln('Amount of numbers below zero and on even places: ', amount);
     for i := 1 to n do
         if i mod 2 = 0
         then
             write(a[i], ' ');
end.

Var n, amount, max_digit, copy_of_n: integer;
begin
     read(n);
     copy_of_n := n;
     amount := 0;
     max_digit := copy_of_n mod 10;
     while copy_of_n <> 0 do
     begin                                   {Находим наибольшую цифру в числе}
          if max_digit < copy_of_n mod 10
          then
              max_digit := copy_of_n mod 10;
          copy_of_n := copy_of_n div 10;
     end;
     copy_of_n := n;
     while copy_of_n <> 0 do        {Считаем количество таких цифр}
     begin
          if copy_of_n mod 10 = max_digit
          then
              amount := amount + 1;
          copy_of_n := copy_of_n div 10;
     end;
     writeln(amount);
end.