Ваши друзья не знают про этот решебник.
Урок 20. Задание 5.
|
Program usegraph5; uses graphABC; begin SetWindowSize(600,500); TextOut(190,5,'Соблюдайте правила дорожного движения!'); SetPenColor(clBlack); SetBrushColor(clGray); SetPenWidth(2); Rectangle(200,40,400,380); SetBrushColor(clRed); Circle(300,100,50); SetBrushColor(clYellow); Circle(300,210,50); SetBrushColor(clGreen); Circle(300,320,50); End. |