Procedure Rectangle ( x1, y1, x2, y2 : integer)

де x1,y1 та x2,y2 - координати двох діаметрально протилежних вершин прямокутника. Фактичними параметрами при звертанні до процедури Прямокутник мають бути вирази цілого типу. Прямокутник буде побудований активним олівцем та зафарбований активним кольором пензля, або не зафарбований, якщо встановлений прозорий колір пензля.
Після виконання процедури активна графічна позиція встановлюється в точку з координатами (x2, y2).

Program RectangleDemo;
Begin
Rectangle( 10, 10, 80, 80 );
Pen( 1, 255, 0, 0 );
Rectangle( 60, 10, 0, 90 );
Pen( 1, 0, 0, 255 );
Brush( 1, 255, 255, 0 );
Rectangle( 20, 30, 50, 90 )
end.