CONST PI = 3.1415
CLS
1 INPUT "Chand zeli? ", n
IF n <= 2 THEN PRINT "Ma"; n; " zeli nadarim!": GOTO 1
sum = (n - 2) * 180
z = sum / n
b = 180 - z
SCREEN 12
a = 0
DIM xs(n)
DIM ys(n)
FOR i = 1 TO n
x = 320 + 75 * COS((PI / 2) - ((a * PI) / 180))
y = 240 + 75 * SIN((PI / 2) - ((a * PI) / 180))
xs(i) = x
ys(i) = y
a = a + b
c = a
c = -(c - 180)
NEXT i
xend = xs(1)
yend = ys(1)
x = xs(2)
y = ys(2)
LINE (xend, yend)-(x, y)
FOR i = 3 TO n
x2 = xs(i)
y2 = ys(i)
LINE (x, y)-(x2, y2)
x = x2
y = y2
NEXT i
LINE (x, y)-(xend, yend)
FOR i = 1 TO n
a = i - 1
b = i + 1
FOR c = 1 TO n
IF c <> a AND c <> b AND c <> i THEN LINE (xs(i), ys(i))-(xs(c), ys(c))
NEXT c
NEXT i