призма с девятиугольником в основании

program kg2;
uses crt,graph;
var gd,gm: integer;    {переменные для работы в графическом режиме}
    cv: array [0..7, 0..2] of real;    {массив с координатами вершин параллелепипеда}
    side: array [0..11, 0..1] of integer;   {массив ребер параллелепипеда}
    i: integer;   {переменная цикла}
    ch: char;   {значение нажатой клавиши}
{****************************************}
procedure draw;   {процедура вывод на экран, рисование контура параллелепипеда}
var x1,x2,y1,y2: integer;
begin
  for i:=0 to 11 do   {в цикле соединяем вершины параллелепипеда, вершины относительно центра экрана}
      begin
        x1:=round(cv[side[i,0],0]) + getmaxX div 2;
        y1:=getmaxY div 2 - round(cv[side[i,0],1]);
        x2:=round(cv[side[i,1],0]) + getmaxX div 2;
        y2:=getmaxY div 2 - round(cv[side[i,1],1]);
        line(x1,y1,x2,y2);   {выводим линии ребер}
      end;
end;