Плиз, помогите, ребят! в pascal abc нужно нарисовать флаг Нигерии

Question

Плиз, помогите, ребят! в pascal abc нужно нарисовать флаг Нигерии

Answer 1

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