program images2;

uses gfx256;

var
   i : integer;

{$I fruits.inc}

begin
 graph320x200;

 for i:=0 to 199 do
  begin
   if random(100)<50
     then ShowImageTransparent(random(300),random(180),12,12,apple)
     else ShowImageTransparent(random(300),random(180),11,12,pear);
  end;

 readln;
 text80x25;
end.