program 4;
CONST
	MAX = 500;
TYPE
	TPEntero = ^integer;
	TTabla = array [1..MAX] OF TPEntero;
VAR
	tabla1 : TTabla;
PROCEDURE ej4(VAR t: TTabla; x,y: integer);
VAR
	vx: integer;
	vy: integer;
BEGIN
	vx := t[x]^;
	vy := t[y]^;
	t[x]^ := vy;
	t[y]^ := vx;
END;
begin
	ej4(tabla1,1,5);
end.