Ваши друзья не знают про этот решебник.
Урок 22. Задание 1.
|
Program ulit; uses graphABC; begin SetWindowSize(600,400); SetBrushColor(clGreen); circle(300,200,100); SetBrushColor(clYellow); circle(300,200,50); SetBrushColor(clRed); circle(300,200,20); line(300,300,400,300); line(400,300,500,200); line(500,200,370,270); floodfill(400,295,clGreen); SetBrushColor(clGreen); Circle(500,180,20); line(480,140,500,160); line(520,140,500,160); Circle(505,170,3); Circle(495,170,3); line(495,190,505,190); End. |