kosmoz2005

24.04.2022 04:15 •  Информатика

составить рисунок 5-ти крылой звезды с желтой заливкой и внедрить её в систему паскаль Pascal ABC программа флага дана
uses GraphABC;
var x,y,x0,y0,r,j:integer;

Begin
SetWindowSize(1000,800);
SetBrushColor(clBlue);
Rectangle(0,0,400,200);
SetBrushColor(clWhite);
Rectangle(0,200,400,400);
SetBrushColor(clGreen);
Rectangle(0,400,400,600);
SetBrushColor(clYellow);
Rectangle(0,600,400,800);
SetBrushColor(clRed);
Rectangle(400,0,600,800);
SetBrushColor(clBlue);
Rectangle(600,0,1000,200);
SetBrushColor(clWhite);
Rectangle(600,200,1000,400);
SetBrushColor(clGreen);
Rectangle(600,400,1000,600);
SetBrushColor(clYellow);
Rectangle(600,600,1000,800);
end.