Ваши друзья не знают про этот решебник.
Урок 20. Задание 3.
|
Program usegraph3; uses graphABC,crt; begin SetWindowSize(600,500); SetPenColor(clRed); SetPenWidth(4); line(50,100,150,100); line(150,100,100,200); line(100,200,50,100); TextOut(50,70,'Треугольник'); SetPenColor(clBlue); Circle(250,150,50); TextOut(210,70,'Окружность'); SetPenColor(clGreen); Rectangle(350,100,500,200); TextOut(380,70,'Прямоугольник'); End. |