q198428415

program q198428415;
uses GraphABC;
var img:integer;
begin
  SetWindowCaption('Снеговик');
  SetWindowSize(200,200);
  ClearWindow($00FDF7D5);
  CenterWindow;
  SetPenMode(pmCopy);
  SetPenStyle(psSolid);
  SetPenWidth(2);
  SetPenColor(clAqua);
  SetBrushColor(clWhite);
  SetBrushStyle(bsSolid);
  Circle(93,143,42);
  Ellipse(68,71,120,122);
  Ellipse(83,46,112,81);
  SetPenWidth(4);
  SetPenColor(clBlack);
  Line(78,97,45,105);
  Line(108,96,142,108);
  SetBrushColor($00004000);
  RoundRect(90,28,110,53,8,8);
  SetPenColor(clMaroon);
  Line(141,71,140,181);
  SetPenWidth(2);
  Line(142,73,153,53);
  Line(140,72,142,56);
  Line(142,74,132,59);
  Line(139,74,154,48);
  SetPixel(92,62,clMaroon);
  SetPixel(102,64,clMaroon);
  SetPenColor($000080FF);
  Line(96,69,110,77);
end.