program altigencizmece;
uses dos,crt,graph,printer;
var gs, gm, i, X, Y, k,j:integer;

altigen: ARRAY[1..100] OF integer;
aci: real;





procedure altigenciz (X,Y,L:word);

begin
aci:= pi * (60/180);

for i:= 1 to 6 do

begin
altigen[ 2 * i-1]:= x + round (L * cos (aci*i));
altigen[2*i] := y + round (L* sin (aci*i));

end;



SETFILLSTYLE (7,11);
SETCOLOR(12);
FILLPOLY(6,altigen);

end;

begin

gs:=detect;
initgraph(gs,gm, 'c:\tp\bgi');
if graphresult <>grok then halt(1);

cleardevice;

altigenciz(200,200,100);



readln;
closegraph;
end.