Синтаксис:
procedure Rectangle{xl,yl,x2,y2: integer);
Действие: Вычерчивает прямоугольник. Параметры xi и yi задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего угла прямоугольника.