Как нарисовать сердце в авс паскаль?

Попробуй загуглить получится проще я делал что то подобное на уроке информатики

Не знаю, такая таблица есть (640х480) в ней рисуешь сердцо(прикидываешь)и начинаешь
Screen 12
line(300,400)-(260,380),6
line(380,260)-(i tak dalee)