ДАЮ 150 баллов!!!!!!!!!!!!!!!!!!!!!!!!!! Напишите код на языке PascalABC чтобы он нарисовал шлем пожарного

Ответ:

program FirefighterHelmet;

uses GraphABC;

begin

 // Встановлення розміру вікна та фонового кольору

 SetWindowSize(600, 600);

 SetWindowColor(clWhite);

 // Малювання основного контуру шолома

 SetPenColor(clRed);

 Rectangle(100, 100, 500, 500);

 // Малювання верхньої частини шолома

 SetPenColor(clBlack);

 SetBrushColor(clRed);

 Rectangle(150, 50, 450, 100);

 // Малювання нагрудного пояса

 SetPenColor(clBlack);

 SetBrushColor(clYellow);

 Rectangle(250, 500, 350, 550);

 // Малювання ліній та кругів на шоломі (додаткові деталі)

 SetPenColor(clBlack);

 SetBrushColor(clWhite);

 Line(200, 150, 400, 150);

 Line(200, 200, 400, 200);

 Line(200, 250, 400, 250);

 Circle(300, 300, 50);

 Circle(300, 350, 50);

 Circle(300, 400, 50);

 Circle(300, 450, 50);

 // Вивід результату

 Redraw;

end.