Unit Param_p;
Interface
USES CRT,GRAPH;
type Range=0..999;
Punti=record
Num:Range;
X,Y:array[Range] of real
end;
procedure param(P:Punti);
Implementation
Riservata ( O. Serra)
END.
N.B. Param_p.tpu si usa al solito modo: uses Param_P;