Нарисовать чебурашку — Pascal(Паскаль)

program risunok;

uses GraphABC, CRT;

var
  x: char;

begin
  Circle(150, 150, 45);
  SetPenColor(clBlack);
  FloodFill(150, 150, clMedGray);
  Ellipse(195, 200, 240, 90);
  Ellipse(60, 200, 105, 90);
  Ellipse(205, 180, 230, 120);
  FloodFill(205, 180, clDkGray);
  Ellipse(70, 180, 95, 120);
  FloodFill(78, 180, clDkGray);
  Circle(150, 150, 35);
  Circle(167, 140, 10);
  Circle(133, 140, 10);
  Circle(167, 140, 4);
  FloodFill(167, 140, clBlack);
  Circle(133, 140, 4);
  FloodFill(133, 140, clBlack);
  Ellipse(143, 158, 157, 148);
  FloodFill(150, 155, clBlack);
  Line(140, 165, 160, 165);
  Line(160, 162, 160, 168);
  Line(140, 162, 140, 168);
  Arc(150, 165, 10, 180, 0);
  FloodFill(150, 166, clBlack);
  Ellipse(105, 195, 200, 330);
  FloodFill(150, 210, clDkGray);
  Ellipse(195, 240, 240, 230);
  FloodFill(210, 235, clDkGray);
  Ellipse(65, 240, 110, 230);
  FloodFill(95, 235, clDkGray);
  Ellipse(155, 325, 200, 340);
  FloodFill(180, 335, clDkGray);
  Ellipse(145, 325, 100, 340);
  FloodFill(120, 335, clDkGray);
  Line(225, 250, 270, 200);
  Ellipse(272, 210, 300, 190);
  FloodFill(280, 200, clBlack);
  Arc(286, 200, 15, 180, 0);
  Line(270, 200, 285, 250);
  Line(285, 250, 300, 200);
  FloodFill(285, 240, clBlack);

end.