Запишите формат оператора позволяющего вывести на экран закрашеный прямоугольник с указанием значения каждого параметра

procedure Rectangle(x1,y1,x2,y2: integer);          Рисует прямоугольник , заданный координатами противоположных вершин (x1,y1) и (x2,y2)  (x1,y1) - координаты левого верхнего угла (x2,y2) - координаты правого нижнего угла. Например: Rectangle (100,100,540,380); FloodFill (320, 240, clGold); - закрашивает замкнутую область золотым цветом