Помогите пожалуйста, надо нарисовать в паскале ABC флаг Таиланда

Question

Помогите пожалуйста, надо нарисовать в паскале ABC флаг Таиланда

Answer 1

Uses GraphABC;
Begin
SetBrushColor(clRed);
FillRect(0,0,WindowWidth,WindowHeight);
SetBrushColor(clWhite);
FillRect(0,(WindowHeight div 6),WindowWidth,5*(WindowHeight div 6));
SetBrushColor(clBlue);
FillRect(0,2*(WindowHeight div 6),WindowWidth,4*(WindowHeight div 6));
End.