Poligono regular qualquer

program poligonoregularqualquer;

var
   n:integer;{numero de lados}
   l:integer;{tamanho do lado}
   Sai:real;{soma dos angulos internos}
   ai:real;{angulo interno}
   a:real;{angulo suplementar ao angulo interno}
   i: integer; {contador de repetição}

begin
  writeln('digite o numero de lados n do poligono');
  readln(n);
  writeln('digite o tamanho l dos lados');
  readln(l);

  Sai:= 180*(n-2);
  ai:= Sai/n;
  a:= 180-ai;

  i:= 1;
  while i<= n do
     begin
       i:= i+1;
       pdireita(a);
       pfrente(l);
     end;
  end.