как залить фигуру градиентом паскаль

Ответ:

uses GraphABC;

var

 a: boolean;

begin

 SetBrushColor(clBlue);

 SetGradientBrushSecondColor(clRed);

 SetPenMode(2);

 FillRect(100,100,300,300);

end.

Объяснение: