Напишите программу в паскаль и 3 задачу

1) 64=2^6, те "вес" 1 символа  6 бит.
1500*6=9000 бит весь текст 9000=1125 байт=приблизительно 1,1 Кбайт

2) 32=2^5, те информационный объем об 1 выпавшем шаре=5 бит.
Если получено 20 бит информации, то 20/5=4 шара выпало

3) Количество пикселей в изображении=640*480=307200 пикселей
100 Кбайт переводим в биты=100*1024*8=819200 бит
Тогда 1 пиксель "весит" 819200/307200 =2, 7 бит, те 3 бита
Количество цветов в палитре N=2^3=8

4) 4=2^2, те 1 px весит 2 бита. В изображении 300*200 =60000px. Изображение весит 60000*2=120000 бит (это объем видеопамяти)
Если в палитре 256 цвета 256=2^8, то 1px в такой палитре весит 8 бит.
120000/8=15000 px в изображении. (например 150х100)

Var  a: array of integer;    
       i, n, x, digit: integer; 
       b1, b2: boolean;
begin  
  readln(n); 
  setlength(a, n); 
  for i := 0 to n - 1 do readln(a[i]); 
  b1 := true; 
  x := 1; 
  digit := x; 
  while b1 do   begin   
    if b2 then digit := x;   
    inc(x);   
    b2 := true;   
    for i := 0 to n - 1 do begin     
      if (abs(a[i]) < x) and (a[i] <> 0) then begin b1 := false;break; end     
      else if a[i] mod x <> 0 then begin b2 := false;break; end   
    end; 
  end; 
  write(digit);
end.