Надо начертить функцию которая задана параметрически. Я не знаю как ее делать x = 2a cos t - a cos 2t , y = 2a sint - a sin 2t ,
где a=5, переменная t изменяется на отрезке [-2П, 2П] с шагом П/6.

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)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ArrRandomReal(15,-10,10); a.Println; Writeln;
  var m:=a.IndexMax;
  var n:=a.IndexMin;
  if m>n then (m,n):=(n,m);
  var b:=a[m+1:n]; b.Println;
  if b.Length>0 then Writeln('П=',b.Aggregate(1.0,(p,x)->p*x))
  else Writeln('Нет элементов между минимумом и максимумом')
end.

Тестовое решение:
8.14904220316049 -7.97861530351388 6.22268662612079 -4.04729378132489 -1.70455696606289 2.5380224606665 9.52389909863653 6.96433030858838 3.31410986991325 4.31776128444716 -3.9021073439634 -1.69448156454343 -8.68306868648299 7.89553786529952 -0.403709360586344

6.96433030858838 3.31410986991325 4.31776128444716 -3.9021073439634 -1.69448156454343
П=658.932534926112