как нарисовать сердце в АВСПаскаль? 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); program serdce;uses graphABC,crt;