unit topologia;

interface

procedure Analizza(N, M: longint; var U, V, T: array of longint);

implementation

(* qui vanno dichiarate eventuali variabili globali *)

procedure Analizza(N, M: longint; var U, V, T: array of longint);
begin
    T[0] := 6;
    T[1] := 7;
    T[2] := 42;
end;

end.