Рисунок совы на паскале

 uses GraphABC; 
 
procedure DrawFeather(x, y: Integer; size: Integer); 
begin 
  SetBrushColor(clWhite); 
  Ellipse(x, y, x + size, y + size div 2); 
end; 
 
procedure DrawEye(x, y: Integer); 
begin 
  SetBrushColor(clWhite); 
  Circle(x, y, 15); 
  SetBrushColor(clBlack); 
  Circle(x, y, 7); 
end; 
 
begin 
  SetWindowSize(400, 400); 
 
  SetBrushColor(clSaddleBrown); 
  Ellipse(200, 250, 300, 350); 
   
  SetBrushColor(clSaddleBrown); 
  Circle(250, 200, 70); 
 
  SetBrushColor(clSaddleBrown); 
  Polygon([Point(210, 160), Point(230, 130), Point(230, 160)]); 
  Polygon([Point(270, 160), Point(250, 130), Point(250, 160)]); 
 
  DrawEye(220, 190); 
  DrawEye(280, 190); 
 
  SetBrushColor(clOrange); 
  Polygon([Point(250, 210), Point(240, 230), Point(260, 230)]); 
 
  SetBrushColor(clSaddleBrown); 
   
  Ellipse(150, 250, 200, 300); 
  Ellipse(300, 250, 350, 300); 
   
  DrawFeather(160, 260, 10); 
  DrawFeather(170, 270, 12); 
   
  DrawFeather(310, 260, 10); 
  DrawFeather(320, 270, 12); 
 
   SetBrushColor(clSaddleBrown); 
   Rectangle(220, 350, 240, 370); 
   Rectangle(260, 350, 280, 370); 
    
   SetBrushColor(clBlack); 
   Line(220,370 ,210 ,380 ); 
   Line(240 ,370 ,230 ,380 ); 
   Line(260 ,370 ,250 ,380 ); 
   Line(280 ,370 ,270 ,380 ); 
    
   SetBrushColor(clLightGoldenrodYellow); 
   for var i := -20 to -1 do  
     begin  
       Ellipse(RandomRange(200 ,300) ,RandomRange(250 ,350) ,RandomRange(210 ,310) ,RandomRange(260 ,360));  
     end; 
 
end.