Desenha uma circunferencia

program circunferencia;
{Declarações}
var C:integer;
  begin
  for C:= 1 to 360 do
     begin
       pfrente(1);
       pdireita(1);
     end;
dr;

  end.