
Procedure Inverser (Var t : Tab; p, n : Integer);
Var aux : Real;
Begin
If p < n Then
Begin
aux := t[p];
t[p] := t[n];
t[n] := aux;
Inverser (t, p + 1, n - 1);
End;
End;