//Vetor C - União dos vetores A e B sem repetição
        val_c := 1;
    For i := 1 to 10 do
        For k := 1 to 10 do
            Begin
                If va[i] = vb[k] then
                    Begin
                        vc[val_c] := va[i];
                        val_c := val_c + 1;
                    End;
                If (va[i] <> vb[k]) and (k = 10) then
                    Begin
                        vc[val_c] := vc[k];
                        val_c := val_c + 1;
                    End;
                If (va[i] <> vb[k]) and (k < 10) then
                    Begin
                        vc[val_c] := vc[k];
                        val_c := val_c + 1;
                    End;
             End;