Используя стандартные процедуры и функции модуля GraphABC, составить программу изображения рисунка

uses
  GraphABC;
 
//Заполненный повернутый эллипс:  
procedure myEllipse(a, b, x0, y0: integer; phi: real; cl: ColorType);
var
  x1, y1, x, y, i, n: integer;
  x2, y2, t: real;  
begin
  n := 500;
  SetPenwidth(2);
  SetPenColor(cl);
  phi := pi * phi / 180; //угол поворота
  x := x0; y := y0;
  for i := 1 to n do
  begin
    t := 2 * pi * i / n;
    { уравнение эллипса: } 
    x2 := a * cos(t);
    y2 := b * sin(t);
    { преобразование координат (поворот эллипса fi на градусов): } 
    x1 := x0 + round(x2 * cos(phi) - y2 * sin(phi));
    y1 := y0 - round(x2 * sin(phi) + y2 * cos(phi));
    if i = 1 then MoveTo(x1, y1)
    else LineTo(x1, y1);
    x := x1;
    y := y1
  end;
  FloodFill(x0, y0, cl)
end;
 
var
  x, y: integer;
 
begin
  x := 200; y := 460;
  SetWindowSize(800, 500);
  { Тело: }
  SetBrushColor(clPurple);
  Ellipse(x, y, x + 300, y - 200);
  { Ноги: }
  SetBrushColor(clBrown);
  SetPenColor(clBrown);
  Circle(x, y - 25, 30);
  Circle(x + 300, y - 25, 30);
  { Хвост и голова: }
  SetBrushColor(clYellow);
  SetPenColor(clYellow);
  Circle(x + 300, y - 175, 30); //Хвост
  Circle(x, y - 230, 70); //Голова
  { Глаз: }
  SetBrushColor(clBlack);
  Circle(x - 35, y - 250, 15);
  { Уши: }
  myEllipse(70, 30, x + 130, y - 280, 10, clGreen);
  myEllipse(75, 30, x + 60, y - 360, 50, clGreen)
end.