Вpascal abc нужно нарисовать флаг нигерии

Uses GraphABC;
Begin
SetBrushColor(clGreen);
FillRect(0,0,WindowWidth,WindowHeight);
SetBrushColor(clWhite);
FillRect(9*(WindowWidth div 30),0,22*(WindowWidth div 30),WindowHeight)
End.