Вкорзине лежат 8 шаров. все шары разного цвета. сколько информации несёт сообщение о том, что из корзины достали красный шар

что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!

var

  x1, x2, x3: real;

begin

  write('x1 = '); readln(x1);

  write('x2 = '); readln(x2);

  write('x3 = '); readln(x3);

  if x1 < x2 then

      if x1 < x3 then

          writeln('минимальным является элемент х1 = ', x1)

      else

          writeln('минимальным является элемент х3 = ', x3)

  else

      if x2 < x3 then

          writeln('минимальным является элемент х2 = ', x2)

      else

          writeln('минимальным является элемент х3 = ', x3);

end.

var  

v: array[1..100] of integer;  

i,j,n,b: integer;  

begin  

randomize;  

write('vvedite razmernost'' massiva: '); readln(n);  

writeln('============ ishodnii massiv ============='); writeln;  

//заполним массив случайными числами  

for i : = 1 to n do  

begin  

v[ i]: =random(100)-50;  

write(v[ i]: 4);  

end;  

writeln;  

 

// организуем сортироваку от минимального  

// к максимальному элементу массива  

for i: =1 to n-1 do  

for j: =i+1 to n do  

if v[ i]> v[ j] then  

begin  

b: =v[ i];  

v[ i]: =v[ j];  

v[ j]: =b;  

end;  

writeln;  

write('=========== otsortirovannii massiv ======='); writeln; writeln;  

write('ot min k max: '); writeln;  

for i : = 1 to n do  

write(v[ i]: 4); writeln; writeln;  

write('ot max k min: '); writeln;  

for i : = n downto 1 do  

write(v[ i]: 4);  

readln;  

end.