Procedure Brush ( k, r, g, b : integer )

де r, g, b - задають частки червоного,зеленого та синього в результуючому кольорі заповнення, а параметр k задає стиль заповнення. Якщо k=1 то замкнені фігури зафарбовуються, а при k=0 встановлюється так званий прозорий колір заповнення, тобто фігури не зафарбовуються. Встановленим кольором будуть зафарбовуватись фігури процедурами Rectangle, Ellipse та Fill. Фактичними параметрами при звертанні до процедури Пензель мають бути змінні, константи чи вирази цілого типу, значення яких знаходиться в діапазоні 0 - 255.
В залежності від типу монітора операційна система може використовувати для заповнення суміш кольорів. В цьому випадку процедура Fill може працювати некоректно. Для отримання чистих кольорів в цьому випадку треба задавати значення r, g, b такі, щоб остача від ділення їх на 8 була рівна 7.

Program BrushDemo;
Begin
Brush( 1, 255, 255, 0 );
Rectangle( 10, 10, 50, 50 );
Brush( 1, 255, 255, 255 );
Rectangle( 30, 30, 90, 90 );
Pen( 2, 255, 0, 0 );
Brush( 0, 0, 0, 0 );
Rectangle( 20, 20, 70, 70 );
end.