Курсовая работа / Курс / STAR

program star;
uses crt,graph,graf;
procedure st;
const a:array[1..5,1..2] of integer=((100,100),(130,180),(160,100),(90,152),(170,152));
var p:array[1..6]of pointtype;
i,j:integer;
begin
clrscr;
mygraphlnit;
for i:=1 to 5 do
begin
p[i].x:=a[i,1];
p[i].y:=a[i,2];
end;
p[6].x:=p[1].x;
p[6].y:=p[1].y;
drawpoly(6,p);
readkey;
end;
begin
st;
end.