program images1;


uses gfx256;

var
   i : integer;

{$I fruits.inc}

begin
 graph320x200;


 for i:=0 to 9 do ShowImage(i*16,10,12,12,apple);
 for i:=0 to 9 do ShowImage(i*16,30,11,12,pear);


 ShowImage(100,100,12,12,apple);
 ShowImage(105,105,11,12,pear);


 readln;
 text80x25;
end.