Question

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

Answer 1

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

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

Например:
Rectangle (100,100,540,380);

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

f8645032b53d740ac2faa51fddaba5b9.pas