напишите в языке Паскаль две звезды пятиконечных ДАЮ МНОГО поинтовпо такому принципу-program dima;uses GraphABC;procedure Sn(x,y:integer);beginline(x,y,x+100,y+100);line(x+100,y,x+25,y+75);line(x,y,x+100,y);end;beginsetwindowsize(1000,800);setpencolor(clblue);sn(10,20);setpencolor(clred);sn(15,200);end.

Модуль GrahpABC позволит вам побыть в роли художников-оформителей. Сначала все покажется очень трудным, но потом . . . .
Познакомьтесь с функциями, которые помогут вам нарисовать точку, отрезок, окружность и прямоугольник.
procedure SetPixel(x,y,color: integer); - закрашивает один пиксел с координатами (x,y) цветом color (точка).

procedure Line(x1,y1,x2,y2: integer); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).

procedure Circle(x,y,r: integer); - рисует окружность с центром в точке (x,y) и радиусом r.

procedure Rectangle(x1,y1,x2,y2: integer); - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).

procedure SetPenColor(color: integer); - устанавливает цвет пера, задаваемый параметром color.

function PenColor: integer; - возвращает текущий цвет пера.

procedure SetPenWidth(w: integer); - устанавливает ширину пера, равную w пикселам.



type ColorType=integer; - стандартные цвета задаются символическими константами:

clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый



clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный