Образовательный портал

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

 line(300,300,150,150);   line(150,150,150,100);    line(150,100,180,80);     line(180,80,210,80);       line(300,130,390,80);   xc:=windowwidth div 2; var dx,dy,xc,x1,y1:integer;         line(420,80,450,100);      line(210,80,300,130); begin hidecursor; setpencolor(clblue); setpenwidth(6);  

end.

       line(390,80,420,80);           line(450,150,300,300);          line(450,100,450,150);      

     floodfill(190,130,clred);