Rectangle

Синтаксис:

procedure Rectangle{xl,yl,x2,y2: integer);

Действие:

Вычерчивает прямоугольник. Параметры xi и yi задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего угла прямоугольника.