uses graphabc;
var
  i, j, s: integer;

begin
  //clearwindow(clWheat);
  //Голова:
  clearwindow(clIvory);
  circle(320, 100, 50);
  brush.Color := clgreen;
  circle(300, 80, 5);
  circle(340, 80, 5);
  pen.Color := clred;
  pen.Width := 3;
  //Рот:
  line(295, 110, 345, 110);
  line(295, 110, 320, 135);
  line(345, 110, 320, 135);
  pen.Color := clgray;
  pen.Width := 5;
  //Ушки:
  line(280, 70, 280, 40);
  line(360, 70, 360, 40);
  line(280, 40, 300, 55);
  line(360, 40, 340, 55);
  pen.Width := 2;
  //Усы:
  line(330, 115, 395, 90);
  line(310, 115, 245, 90);
  line(315, 125, 245, 128);
  line(330, 125, 395, 128);
  line(325, 130, 395, 138);
  line(315, 130, 245, 138);
  //Туловище:
  line(320, 150, 250, 290);
  line(320, 150, 390, 290);
  line(250, 290, 390, 290);
  i := 0;
  s := 250;
  while i <= 140 do 
  begin
    for j := 140 - i downto 1 do 
      setpixel(s + j, 290 - i, clgray);
    if(i mod 2 = 0) and (i <> 0) then s := s + 1;
    i := i + 1;
  end;
  //Ноги:
  pen.Color := clwhite;
  brush.Color := clwhite;
  rectangle(290, 235, 310, 292);
  rectangle(330, 235, 350, 292);
  //Хвост:
  pen.Color := clblack;
  pen.Width := 6;
  line(365, 240, 400, 240);
  line(400, 240, 430, 250);
  line(430, 250, 450, 265);
  line(450, 265, 450, 295);
  line(450, 295, 430, 315);
  line(430, 315, 390, 315);
  line(390, 315, 370, 300);
  //Текст:
  for i := 1 to 10 do writeln;
  font.Color := cllightgreen;
  setfontsize(25);
  textout(450, 180, 'Котик');
end.