PROGRAM Array_invertido;
TYPE
  tvector=array[1..3]of integer;
VAR
  vector:tvector;
  i:integer;

PROCEDURE Inverso(v:vector); // NO ME COMPILA POR UN PROBLEMA DE PARAMETROS.
VAR
  i:integer;
Begin
     FOR i:=1 TO 3 DO
     Begin
       writeln('Ingrese numeros al vector; ');
       readln(v[i]);
     end;

     writeln('Los numeros inversos del vector son: ');
     FOR i:=3 DOWNTO 1 DO
     writeln(v[i]);
end;

BEGIN
  Inverso(v);
  readln;
END.
