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

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.