Вкорзине лежат фрукты: яблоко,груша,апельсин,мандарин и несколько различных овощей.сообщение о том,что достали один мандарин,содержит 4 бита информации.сколько различных овощей в корзине?

Program project1777;
uses  math,  Classes ;
 var   x,y,z:integer; 
 begin     
  writeln('vedite 1 chislo');readln(x);   
  writeln('vedite 2 chislo');readln(y); 
   writeln('vedite 3 chislo');readln(z); 
   begin
     if ((x>y) and (x>z)) then     writeln('samoe bolshoe chislo ',x) 
   else   
  if ((y>x) and (y>z)) then     writeln('samoe bolshoe chislo ',y)   
 else 
   if ((z>x) and (z>y)) then  
 writeln('samoe bolshoe chislo ',z); 
    end;     
begin   
  if ((x<y) and (x<z)) then 
   writeln('samoe malenkoe chislo ',x)
     else 
   if ((y<x) and (y<z)) then   
 writeln('samoe malenkoe chislo ',y) 
   else   
 if ((z<x) and (z<y)) then 
   writeln('samoe malenkoe chislo ',z);
     end;
   readln;
   end.

type koords = record
                       x,y:real;
                     end;
var ab,dc,dh,ad,h:real;
      a,b,c,d:koords;  
begin
  writeln ('A:');
  write ('X = ');
  readln (a.x);
  write ('Y = ');
  readln (a.y);
  writeln ('B:');
  write ('X = ');
  readln (b.x);
  write ('Y = ');
  readln (b.y);
  writeln ('C:');
  write ('X = ');
  readln (c.x);
  write ('Y = ');
  readln (c.y);
  writeln ('D:');
  write ('X = ');
  readln (d.x);
  write ('Y = ');
  readln (d.y);
  ab:=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
  dc:=sqrt(sqr(c.x-d.x)+sqr(c.y-d.y));
  dh:=abs((dc-ab))/2;
  ad:=sqrt(sqr(a.x-d.x)+sqr(a.y-d.y));
  h:=sqrt(sqr(ad)-sqr(dh));
  writeln ('H = ',h:0:4);
  readln;
end.