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

Procedure Rectangle(x1,y1,x2,y2: integer); 
        Живописует прямоугольник , данный координатами обратных вершин (x1,y1) и (x2,y2) 

(x1,y1) - координаты левого верхнего угла
(x2,y2) - координаты правого нижнего угла.

К примеру:
Rectangle (100,100,540,380);

FloodFill (320, 240, clGold); - закрашивает замкнутую область золотым цветом