uses GraphABC;
var
a: boolean;
begin
SetBrushColor(clBlue);
(clRed);
SetPenMode(2);
FillRect(100,100,300,300);
end.
Объяснение:
