Free Pascal

Данны натуральные числа N и r посторить N точки являющихся вершинами правильного n угольника вписанного в окружность радиуса r и соединить каждую из точек со всеми остальными n-1 точками во избежание повторного вычерчивания линий соединяющих одни и те же точки каждую точку с номером i следует соединить только с теми точками с номерами j для которых выполнено условие i<j. Выполнить на фри паскале.