Unit Grafix_P;
 Interface
  uses graph,Crt;
 type    indice=0..999;
         Punti=record
              x,y:array[indice] of real;
              Num:indice
              end;
Procedure Grafica(P:Punti);
 Implementation
 {Non disponibile, è riservata}