Как нарисовать сердце в АВСПаскаль?

program serdce; uses graphABC,crt; var dx,dy,xc,x1,y1:integer; begin  hidecursor;  setpencolor(clblue);  setpenwidth(6);  line(300,300,150,150);    line(150,150,150,100);     line(150,100,180,80);      line(180,80,210,80);       line(210,80,300,130);       line(300,130,390,80);        line(390,80,420,80);         line(420,80,450,100);           line(450,100,450,150);            line(450,150,300,300);            floodfill(190,130,clred);    xc:=windowwidth div 2;   end.