Создать процедуру рисующую параллелограмм в Pascal ABC

Если пробелы не отображаются, то после каждого ";" нажимай "Enter",чтобы перейти на новую строку

А можно полную прописанную программу в Паскале плс.

uses drawman;beginfield(20,20);topoint(4,6);pendown;topoint(6,13);topoint(16,13);topoint(14,6);topoint(4,6);end.